Sub WorksheetExists() '(shtName As String, Optional wb As Workbook) As Boolean
'

Dim sht As Worksheet
Dim wb As Workbook

For Each wb In Application.Workbooks
    For Each sht In wb.Sheets
        If sht.name = "Солнце" Then
            sht.Activate
            Range("A1").Value = "bbb"
        End If
    Next sht
Next wb

End Sub

Set Items = objNS.GetDefaultFolder(olFolderInbox).Items
Set Items = objNS.GetDefaultFolder("Задачи").Items 'можно сделать так? Точней я попробовал, но не работает

Private WithEvents Items As Outlook.Items
Private Sub Application_Startup()
  Dim olApp As Outlook.Application
  Dim objNS As Outlook.NameSpace
  Set olApp = Outlook.Application
  Set objNS = olApp.GetNamespace("MAPI")
 ' default local Inbox
  Set Items = objNS.GetDefaultFolder(olFolderInbox).Items
    Set Items = objNS.Folders("Задачи").Items
End Sub
Private Sub Items_ItemAdd(ByVal item As Object)

  On Error GoTo ErrorHandler
  Dim Msg As Outlook.MailItem
  If TypeName(item) = "MailItem" Then
    Set Msg = item
    ' ******************
    ' do something here
    MsgBox ("пришло письмо")
    ' ******************
  End If
ProgramExit:
  Exit Sub
ErrorHandler:
  MsgBox Err.Number & " - " & Err.Description
  Resume ProgramExit
End Sub

Public Declare Function SetCursorPos Lib "user32" (ByVal x As Long, ByVal y As Long) As Long
Public Declare Sub mouse_event Lib "user32" (ByVal dwFlags As Long, ByVal dx As Long, ByVal dy As Long, ByVal cButtons As Long, ByVal dwExtraInfo As Long)
Public Const MOUSEEVENTF_LEFTDOWN = &H2
Public Const MOUSEEVENTF_LEFTUP = &H4
Public Const MOUSEEVENTF_RIGHTDOWN As Long = &H8
Public Const MOUSEEVENTF_RIGHTUP As Long = &H10

Private Sub SingleClick()
  SetCursorPos 100, 100 'x and y position
  mouse_event MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 0
  mouse_event MOUSEEVENTF_LEFTUP, 0, 0, 0, 0
End Sub

Private Sub DoubleClick()
  'Double click as a quick series of two clicks
  SetCursorPos 100, 100 'x and y position
  mouse_event MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 0
  mouse_event MOUSEEVENTF_LEFTUP, 0, 0, 0, 0
  mouse_event MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 0
  mouse_event MOUSEEVENTF_LEFTUP, 0, 0, 0, 0
End Sub

Private Sub RightClick()
  'Right click
  SetCursorPos 200, 200 'x and y position
  mouse_event MOUSEEVENTF_RIGHTDOWN, 0, 0, 0, 0
  mouse_event MOUSEEVENTF_RIGHTUP, 0, 0, 0, 0
End Sub

Dim o As IUIAutomation
Dim h As LongPtr
Set o = New CUIAutomation
h = 0
Do Until h > 0
    'h = ie.hWnd
    h = FindWindow("#32770", "Internet Explorer")
Loop

'find and click save as button
Dim e As IUIAutomationElement
Dim iCnd As IUIAutomationCondition
Dim Button As IUIAutomationElement
Set e = o.ElementFromHandle(ByVal h)
Set Button = Nothing
Do Until Not Button Is Nothing
    Set iCnd = o.CreatePropertyCondition(UIA_NamePropertyId, "Save as")
    Set Button = e.FindFirst(TreeScope_Subtree, iCnd)
Loop

Dim InvokePattern As IUIAutomationInvokePattern
Set InvokePattern = Button.GetCurrentPattern(UIA_InvokePatternId)
InvokePattern.Invoke

Sub Inc(ByRef i As Integer)
 i = i + 1  
End Sub
..
Static value As Integer
inc value
inc value

<button type="button" tabindex="0" id="upload_campaign_btn1518922861874-button">Скачать</button>

For Each Obj In ObjIE.document.getElementsByTagName("button")
If Obj.innertext = "Скачать" Then
Obj.Click
End If
Next

НАЗВАНИЕ КНОПКИ НА САЙТЕ HTML
<button class="button2 button2_theme_action button2_size_m button2_role_download button2_view_classic f-answers-export__button i-bem button2_js_inited" 
data-bem="{"button2":{}}" type="button" autocomplete="off" aria-disabled="false" tabindex="0"><span class="button2__text">Скачать</span></button>

button2_role_download (определяющий класс)

Sub IE()

Set IE = CreateObject("InternetExplorer.Application")
    IE.Visible = True
    IE.Navigate ("https://forms.yandex.ru/admin/6007198fdfc5ae138636cf68/answers")
   
    IE.document.getelementbyclassname("button2_role_download").Submit (Ошибка: method document of object iwebbrowser2 failed)

End Sub

Application.AskToUpdateLinks = True
    Dim objWrdApp As Object
    Dim objWrdDoc As Object
    On Error Resume Next
    Set objWrdApp = GetObject(, "Word.Application")
        If Err Then
            Err.Clear
            Set objWrdApp = CreateObject("Word.Application")
            If Err Then MsgBox "Íåò Âîðäà íà ìàøèíå!": Exit Sub
        End If
    objWrdApp.Visible = True
    Set objWrdDoc = objWrdApp.Documents.Open("C:\Users\KLC Team\Desktop\6_TESTs\Shablon_6_tests-Connect.docx")
 ActiveDocument.Selection.Fields.Update

Если в файле word найден "Определенный текст", То
Сохранить его под названием: "Название1",
Если не найден, то закрыть ворд (не изменять файл)

With objWrdDoc.Content.Find
        .Text = "Яблоко"
        End With
If objWrdDoc.Content.Find.Execute Then
objWrdDoc.SaveAs2 Filename:= _
       "C:\Users\KLC Team\Desktop\6_TESTs\Название1.docx"
        End If
'Закрыть ворд



Заранее огромное спасибо!

With objWrdDoc.Content.Find
        .Text = "Яблоко"
        End With
If objWrdDoc.Content.Find.Execute Then
objWrdDoc.SaveAs2 Filename:= _
       "C:\Users\KLC Team\Desktop\6_TESTs\Название1.docx"
       Else
objWrdDoc.SaveAs2 Filename:= _
       "C:\Users\KLC Team\Desktop\6_TESTs\Название2.docx"
        End If

With objWrdDoc.Content.Find
        .Text = "Яблоко"
        End With
If objWrdDoc.Content.Find.Execute Then
objWrdDoc.SaveAs2 Filename:= _
       "C:\Users\KLC Team\Desktop\6_TESTs\Название1.docx"
       Else
objWrdDoc.SaveAs2 Filename:= _
       "C:\Users\KLC Team\Desktop\6_TESTs\Название2.docx"
        End If

Sub ToPDF()

Dim i
For i = 3 To Worksheets("settings").Range("G3") + 2

Dim objWrdApp As Object
    Dim objWrdDoc As Object
    On Error Resume Next
    Set objWrdApp = GetObject(, "Word.Application")
        If Err Then
            Err.Clear
            Set objWrdApp = CreateObject("Word.Application")
            If Err Then MsgBox "Нет Ворда на машине!": Exit Sub
        End If
    objWrdApp.Visible = True
    Set objWrdDoc = objWrdApp.Documents.Open(ThisWorkbook.Worksheets("SURVEY").Range("IA" & i) & ThisWorkbook.Worksheets("SURVEY").Range("HZ" & i) & ".docx")
      
            
    ActiveDocument.ExportAsFixedFormat OutputFileName:= _
        ThisWorkbook.Worksheets("SURVEY").Range("IB" & i) & ThisWorkbook.Worksheets("SURVEY").Range("IC" & i) & ".pdf", ExportFormat:= _
        wdExportFormatPDF, OpenAfterExport:=False, OptimizeFor:= _
        wdExportOptimizeForPrint, Range:=wdExportAllDocument, From:=1, To:=1, _
        Item:=wdExportDocumentContent, IncludeDocProps:=True, KeepIRM:=True, _
        CreateBookmarks:=wdExportCreateNoBookmarks, DocStructureTags:=True, _
        BitmapMissingFonts:=True, UseISO19005_1:=False
        
   
objWrdDoc.Close SaveChanges:=True
objWrdApp.Quit
Set objWrdDoc = Nothing
Set objWrdApp = Nothing

Next i

End Sub