Sub Test() Dim sh As Shape, s As String For Each sh In ActivePage.Shapes s = s & sh.URL.Address & vbCr Next sh MsgBox "The current page contains the following URL addresses: " & vbCr & sEnd Sub