Sub Test() Dim sh As Shape, s As String For Each sh In ActivePage.Shapes If sh.URL.AltComment <> "" Then s = s & sh.URL.AltComment & vbCr End If Next sh MsgBox "The current page contains the following URL alternative comments: " & _ vbCr & sEnd Sub