Управление броузером Хром

Private Sub Комманда2_Click()
Dim iWorkbook
Set iWorkbook = GetObject(, "Excel.Application")
iWorkbook.worksheets(1).cells(1, 1) = "Привет"
iWorkbook.Application.DisplayAlerts = False
iWorkbook.Save
iWorkbook.Application.Quit
End Sub

Set OBI = GetObject(, "Chrome_WidgetWin_1")

Set OBI = GetObject(, "Chrome_WidgetWin_1")

Private Sub Комманда1_Click()
Dim hwnd&
Dim dummy&
Dim strCaption As String
Dim i%
' Рабочий стол - самое первое окно
hwnd& = GetDesktopWindow()
' Первое дочернее окно - окно первого уровня
hwnd& = GetWindow(hwnd&, GW_CHILD)
' Теперь получим заголовки окон всех уровней
'и дескрипторы окон
i% = 1
Do
dummy& = GetWindowTextLength(hwnd&)
If dummy <> 0 Then
      strCaption = String(dummy + 1, " ")
      dummy = GetWindowText(hwnd&, strCaption, dummy + 1)
      hwnd& = GetWindow(hwnd&, GW_HWNDNEXT)
      If InStr(1, strCaption, "Chrome", vbTextCompare) > 0 Then
      Debug.Print i%, strCaption, hwnd&
      'По идее здесь что-то как-то можно-надо назначить?
      End If
       i% = i% + 1
End If
hwnd& = GetWindow(hwnd&, GW_HWNDNEXT)
Loop While hwnd& <> 0
End Sub

Вы можете воспользоваться например этой программой для поиска классов