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