как нажать в уже открытом IE?

Private Sub Command1_Click()
Dim ie As Object
Set ie = CreateObject("InternetExplorer.Application")
    ie.Visible = True
    
  '  ie.navigate ("...") ' указываем сайт
 
    Do Until ie.ReadyState = 4 'Пока не загрузится ждем
        DoEvents
    Loop
 
    ie.document.getelementbyID("...").Click 'Жмем на кнопку
End Sub

on error resume next
Set ie = getObject(,"InternetExplorer.Application")
if err then
  Set ie = CreateObject("InternetExplorer.Application")
  if err then
    msgbox"Нет эксплорера!"
    exit sub
  endif
endif
on error goto 0

ie.navigate ("...")

ie.navigate ("about:tabs"): While IE.Busy Or IE.readyState <> 4 : Wend

    Const navOpenInBackgroundTab = &H1000
     
    Link = "http://membrana.ru/"
    
    set IE = Nothing 
    For Each Window In CreateObject("Shell.Application").Windows
        With Window
            If .Name = "Windows Internet Explorer" Then
                Set IE = Window
                IE.Navigate2 Link, navOpenInBackgroundTab
                Exit For
            End If
        End With
    Next
 
    if IE is Nothing then
        Set ie = CreateObject("InternetExplorer.Application")
        ie.Visible = True '// поставьте false, чтобы не было видно браузера
        IE.Navigate2 Link
    end if

Do Until ie.ReadyState = 4 
        DoEvents
    Loop
 
    ie.Document.getelementbyID(z1).Click