Option Explicit

Dim ShellWindows As New ShellWindows
Dim WithEvents WebBrowser As WebBrowser
Dim WithEvents Document As HTMLDocument
Private Sub Form_Load()

Dim ShellWindow As Object

    For Each ShellWindow In ShellWindows
        If TypeOf ShellWindow.Document Is HTMLDocument Then
            Set Document = ShellWindow.Document
            MsgBox Document.url
        End If
    Next
End Sub

Option Explicit

Dim ShellWindows As New ShellWindows
Dim WithEvents WebBrowser As WebBrowser
Dim WithEvents Document As HTMLDocument
Private Sub Form_Load()

    Dim ShellWindow As Object

    For Each ShellWindow In ShellWindows
        If TypeOf ShellWindow.Document Is HTMLDocument Then
            Set Document = ShellWindow.Document
            'MsgBox Document.URL
            Debug.Print Document.URL
            If Document.URL = "http://web.airdroid.com/" Then
'подскажите как открыть вкладку Позвонить????
            End If
        End If
    Next
End Sub