Private Sub TextBox1_Change()
If Not Len(TextBox1.Value) = 13 Then
    Label1.Caption = "Макрос НЕ сработает"
    Exit Sub
End If
Label1.Caption = "Макрос сработает"
End Sub

Private WithEvents App As Application

Private Sub Workbook_Open()
 Set App = Application
End Sub

Private Sub App_WorkbookOpen(ByVal wb As Workbook)
Set myCell = wb.Sheets(1).Range("A1:Z8").Find("*ВЕДОМОСТЬ*")
If Not myCell Is Nothing Then
MsgBox wb.Name & "     Нашел, этот файл надо обработать"
'здесь идет обработка файла макросом снятие пароля с листа, форматирование и удаление всех макросов из файла
MsgBox wb.Name & "     Обработано, все Готово"
End If
End Sub

Sub Modules()
Dim wb2 As Workbook
Dim vbp As Object
Set wb2 = ActiveWorkbook
Set vbp = wb2.VBProject
If vbp.Protection <> 1 Then Exit Sub
Set Application.VBE.ActiveVBProject = vbp ' ошибка полагаю здесь  надо не "ActiveVBProject "  вопрос что?
SendKeys "2000" & "~~"
Application.VBE.CommandBars(1).FindControl(ID:=2578, _
recursive:=True).Execute
End Sub

objSelection.Item(k).BillingInformation = "Зарегистрировано"

With objMail
        '.To = sTo 
        '.CC = "08@mail.ru" 
        '.BCC = "" 
        .Subject = nameMAIL '
        '.Body = sBody '
        '.HTMLBody = sBody 
  
        If Dir(ActiveWorkbook.FullName, 16) <> "" Then
            .Attachments.Add x 
           
        End If
     
        .Display ',ОТОБРАЗИТЬ ПИСЬМО И ЖДАТЬ ОЖИДАНИЯ ОТПРАВКИ ИЛИ ЗАКРЫИМЯ ОКНА
    End With

 Sub timmer()
 
 Application.OnTime Now + TimeValue("00:00:03"), "TEST"
 MsgBox ("прошло 4 секунды")
 End Sub
 
 Sub TEST()
 Application.OnTime Now + TimeValue("00:00:04"), "timmer"
MsgBox ("прошло 3 секунды")
 End Sub
 

a = Array("[!(А-Я)]", "[!(A-Z)]")
s = Cells(1, 1)
For Each el In a: s = Replace(s, el, ""): Next

WorksheetFunction.Search(Chr(10), Cells(1, 1))

Set objCommonDialog = New WIA.CommonDialog
Set objImage = objCommonDialog.ShowAcquireImage

Sub Макрос88883()
'Список цветов
COL1 = 10027008
COL2 = 16711680
COL3 = 2704713
COL4 = 8014176
COL5 = 411543
COL6 = 8421504
COL7 = 3969910
COL8 = 682978
COL9 = 10192433
COL10 = 5540500
COL11 = 14136213
COL12 = 13082801
COL13 = 14336204

  Range("A6:W10").Select
    
    For i = 1 To 10
    Selection.FormatConditions.Add Type:=xlExpression, Formula1:="=И(" & i & "=$t6;$W6=""Да"")"
    Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
    With Selection.FormatConditions(1).Interior
        .PatternColorIndex = xlAutomatic
   
    ' ОШИБКА ЗДЕСЬ Составная запись подставки цветов
        .ThemeColor = "COL" & 13 - i
        .TintAndShade = 0   
    End With
    Selection.FormatConditions(1).StopIfTrue = False
Next i
End Sub

=СЧЁТЗ(ДВССЫЛ("Лист"&"*"&"'!A:A";ИСТИНА))

On Error Resume Next  

Gran = Evaluate("COUNTA(E6:E2708)+9") ' определяю границу обрабатываемых ячеек по наличию в ней каких либо данных
 For Each ccel In Range("n9:n" & Gran) ' цикл
                     Set d = ccel.Offset(0, -2)    'объявление переменных 
                     Set g = ccel.Offset(0, -7)
                     Set j = ccel.Offset(0, -3)
                     Set k = ccel.Offset(0, -4)
            If ccel = "Да" Then             ' проверяем если"Да" в определенной ячейке
d.FormulaR1C1 = "=RC[1]"                    ' выполняем действие с ячейкой (очистка или вставка формулы или смена формата
j.Clear
k.Clear
Else
g.Value = Round(g.Value, 2)                 ' выполняем действие с ячейкой (очистка или вставка формулы или смена формата
g.NumberFormat = "General"
End If
Next ccel                                                     'переходим к следующей

Sub Delete_VBA()
  Dim oVB As Object
    For Each oVB In ActiveWorkbook.VBProject.VBComponents
        On Error Resume Next
        With oVB
            If .Type = 1 Or .Type = 2 Or .Type = 3 Then .Collection.Remove oVB 'модули, классы, формы
            If .Type = 100 Then .CodeModule.DeleteLines 1, .CodeModule.CountOfLines 'книга, листы
        End With
    Next
    Set oVB = Nothing
End Sub

Sub Workbook_()
For Each U In Range("D9:E20") 'задал диапазон
If Not U.Find("=") Is Nothing Then 'нашел яейку с формулой и пропустил ее
Else
U.Value = "=L2*" & U.Value  'СЦЕПИЛ текущее значение и аргумент формулы (ОШИБКУ ПИШЕТ ЗДЕСЬ)
End If
Next
End Sub