'обязательно отображаем письмо ДО отправки и добавления своего текста
'без этого может не подгрузиться подпись
.Display
'добавляем к пустому письму с уже прогруженной подписью свой текст(sBody)
.HTMLBody = sBody & .HTMLBody

<br />

=ИНДЕКС(ДВССЫЛ("A1:A4");1)

If Dir(Environ("commonprogramfiles") & "\Microsoft Shared\OFFICE" & Format(Val(Application.Version), "00") & "\EXP_PDF.DLL") = "" Then
msgbox "Виртуальный PDF принтер не доступен!"
end if

If Dir(ActiveWorkbook.Path & "\" & REPORTS_FOLDER, 16) = "" Then
   MkDir ActiveWorkbook.Path & "\" & REPORTS_FOLDER
End If

    Dim objOutlookApp As Object, objMail As Object
    Dim sTo As String, sSubject As String, sBody As String, sAttachment As String
 
    Application.ScreenUpdating = False
    Set objOutlookApp = CreateObject("Outlook.Application")
    objOutlookApp.Session.Logon
    Set objMail = objOutlookApp.CreateItem(0)   'создаем новое сообщение

Sub ShowGetOpenDialod()
    Dim avFiles
    'по умолчанию к выбору доступны файлы Excel(xls,xlsx,xlsm,xlsb)
    avFiles = Application.GetOpenFilename _
                ("Excel files(*.xls*),*.xls*", 1, "Выбрать Excel файлы", , False)
    If VarType(avFiles) = vbBoolean Then
        'была нажата кнопка отмены - выход из процедуры
        Exit Sub
    End If
    Workbooks.Open avFiles, Password:="1234"
End Sub

Sub Добавить_имена()
Worksheets("График").Names.Add Name:="namecount", RefersTo:="=График!$CJ$15:$CJ$4200"
Worksheets("График").Names.Add Name:="namecount2", RefersTo:="=График!$CM$15:$CM$4200"
Worksheets("График").Names.Add Name:="namecount3", RefersTo:="=График!$CS$15:$CS$4200"
Worksheets("График").Names.Add Name:="namecount4", RefersTo:="=График!$BP$15:$BP$4200"
Worksheets("График").Names.Add Name:="namelist", RefersTo:="=График!$CJ$15:$CK$4200"
Worksheets("График").Names.Add Name:="namelist2", RefersTo:="=График!$CM$15:$CM$4200"
Worksheets("График").Names.Add Name:="namelist3", RefersTo:="=График!$CS$15:$CT$4200"
Worksheets("График").Names.Add Name:="namelist4", RefersTo:="=График!$BP$15:$CBQ$4200"
End Sub

Worksheets("График").Names.Add Name:="namecount", RefersToR1C1:="=График!R15C88:R4200C88"

Diapazon1 = Application.Match("Присоед*", Range("I" & i + 1 & ":" & "I1200"), 0) - 1

Diapazon1 = 0
Diapazon1 = Application.Match("Присоед*", Range("I" & i + 1 & ":" & "I1200"), 0) - 1
If Diapazon1 < 1 then
'не найдено значение
end if

=Правильно!A1

With GetObject("New:{1C3B4210-F441-11CE-B9EA-00AA006B1A69}")
 .SetText ""
 .PutInClipboard
End With