Private Function WhatMonth(ByVal funcM As Byte) As String
    Select Case funcM
        Case Is = 1
            strM = "Январь"
        Case Is = 8
            strM = "Август"
    End Select
End Function

Sub test()
    Dim myDate As Date
    Dim m As Byte
    
    myDate = Date
    m = Month(myDate)
    
    strMonth = WhatMonth(m)
End Sub

Sub test()
    Dim objOL As Outlook.Application
    Dim objMail As MailItem
    Dim myBody As String
    
    Set objOL = Outlook.Application
    Set objMail = objOL.ActiveInspector.Selection
    objMail.UnRead = False
End Sub

shtAP.PivotTables("Pivot_ALL_rate").PivotFields("decline_reason").PivotItems("Issued").Position = 7

CBR = CDbl(outstr)

outstr = Replace(outstr, ",", ".")
CBR = CDbl(outstr)

CreateObject("WScript.Shell".Run "C:\Myfile.vbs"

Sub test()
    Dim a As Long
    
    a = 10000 * 4
End Sub

Option Explicit
Dim app, ChangePhonesFolder, ChangePhonesFileName, inChangePhonesFullFileName, InFolderName, objExcel
Dim f, s, b, i, my_time, logs

set objExcel = CreateObject ("Excel.Application")
app="С:\EXT\UnZip.xlsb"

on error goto 0: TI_Avaya()

sub TI_Avaya()
   objExcel.Visible = true
        objExcel.Workbooks.Open (app)
   objExcel.run "Time_Indicators"
   objExcel.Workbooks("UnZip.xlsb").Close (true)
objExcel.Quit
end sub

objExcel.Workbooks.Open (app, writerespassword:="123")

Sub test()
    Dim ppApp As PowerPoint.Application
    Dim ppPres As PowerPoint.Presentation
    Dim ppSlide1 As PowerPoint.Slide, ppSlide2 As PowerPoint.Slide
    
    ' запуск PowerPoint.
    Set ppApp = CreateObject("Powerpoint.Application")
    ' сделать видимым.
    ppApp.Visible = True
    ' создать новую презентацию.
    Set ppPres = ppApp.Presentations.Add(msoTrue)
     ' создать пустой слайд.
    Set ppSlide1 = ppPres.Slides.Add(1, ppLayoutBlank)
    'Копируем диаграмму в PowerPoint
    ThisWorkbook.Worksheets(1).ChartObjects("Диаграмма 1").Copy
    Set chart1 = ppSlide1.Shapes.PasteSpecial(ppPastePNG)

End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
    For Each cell In Target
        If Not Intersect(cell, Range("A1:A5")) Is Nothing Then
            'сам код действия
        End If
    Next cell

End Sub

If Not Intersect(cell, Range("A1:A5")) Is Nothing Then

Private Sub Worksheet_PivotTableUpdate(ByVal Target As PivotTable)
    For Each PivotTable In Target
        If Not intercect(PivotTable, "BALANCE1") Is Nothing Then ' "BALANCE1" — это название сводной
        End If
    Next PivotTable
End Sub

'это мне понятно, задаем объект, открываем IE
Set IE = CreateObject("InternetExplorer.Application")
    IE.Visible = False
'может мне кто-нибудь пояснить, что он делает вот в этой строке
While IE.Busy Or (IE.ReadyState <> 4): DoEvents: Wend

Set IE = CreateObject("InternetExplorer.Application")
    IE.Visible = True