Sub const_by_condition1()
    Dim tfFlag As Boolean: tfFlag = False
    #If tfFlag = True Then
        Const Const1 As Long = 1
    #Else
        Const Const1 As Long = 2
    #End If
    Debug.Print Const1
End Sub

Sub const_by_condition2()
    Dim tfFlag As Boolean: tfFlag = False
    #If tfFlag = True Then
        #Const Const1 = 1
    #Else
        #Const Const1 = 2
    #End If
    Debug.Print Const1
End Sub

Sub const_by_condition3()
    Dim tfFlag As Boolean: tfFlag = False
    If tfFlag = True Then
        Const Const1 = 1
    Else
        Const Const1 = 2
    End If
    Debug.Print Const1
End Sub

Sub Макрос1()
'
' Макрос1 Макрос
'

'
    With Selection.Validation
        .Delete
        .Add Type:=xlValidateWholeNumber, AlertStyle:=xlValidAlertStop, _
        Operator:=xlBetween, Formula1:="1", Formula2:= _
        "=ДЕНЬ(КОНМЕСЯЦА(ДАТАЗНАЧ(""1-""&ЛЕВБ(B$1;3));0))"
        .IgnoreBlank = True
        .InCellDropdown = True
        .ShowInput = True
        .ShowError = True
    End With
End Sub

Sub jjj()
    With Range("B3:M3").Validation
        .Delete
        .Add Type:=xlValidateWholeNumber, AlertStyle:=xlValidAlertStop, _
        Operator:=xlBetween, Formula1:=1, Formula2:= _
        "=DAY(EOMONTH(DATEVALUE(""1-""&LEFTB(R1C,3)),0))" _
        '"=ДЕНЬ(КОНМЕСЯЦА(ДАТАЗНАЧ(""1-""&ЛЕВБ(B$1;3));0))" _
        '
        .IgnoreBlank = True
        .InCellDropdown = True
        .InputTitle = ""
        .ErrorTitle = ""
        .InputMessage = ""
        .ErrorMessage = ""
        .ShowInput = True
        .ShowError = True
    End With
End Sub

Option Explicit
Option Compare Text

Dim bWbProtOn As Boolean ' c

Sub twb_protect()
    ThisWorkbook.Protect Structure:=True, Windows:=False ', Password:=strPASSWORD
End Sub

Sub twb_unprotect()
    ThisWorkbook.Unprotect ' Password:=strPASSWORD
End Sub

Sub chk_twb_struct_prot_on()
Dim lShIndex&

    With ThisWorkbook
        lShIndex = .ActiveSheet.Index
        On Error Resume Next
        .Sheets.Add after:=.ActiveSheet ' c
        On Error GoTo 0
        bWbProtOn = lShIndex = .ActiveSheet.Index
        If Not bWbProtOn Then Application.DisplayAlerts = False: _
            .ActiveSheet.Delete: Application.DisplayAlerts = True
        Debug.Print bWbProtOn
    End With
End Sub

Sub test_twb_struct_prot()
    Call twb_protect
    Call chk_twb_struct_prot_on
    Call twb_unprotect
    Call chk_twb_struct_prot_on
End Sub

Sub jjj_find_work()
Dim i&, Rng As Range
    Set Rng = Worksheets(1).UsedRange
    Set c = Rng.Find("find", LookIn:=xlValues)
    If Not c Is Nothing Then
        With c
            firstAddress = .Address
            i = 0
            Do
                i = i + 1
                Set c = Rng.FindNext(c)
            Loop While Not c Is Nothing And .Address <> firstAddress
        End With
    End If
    MsgBox "finded: " & i
End Sub

Sub jjj_find_not_work()
Dim i&, Rng As Range, c As Range
    Set Rng = Worksheets(1).UsedRange
    Set c = Rng.Find("find", LookIn:=xlValues)
    If Not c Is Nothing Then
        With c
            firstAddress = .Address
            i = 0
            Do
                i = i + 1
                Set c = Rng.FindNext(c)
            Loop While Not c Is Nothing And .Address <> firstAddress
        End With
    End If
    MsgBox "finded: " & i
End Sub

Function ЦифрыПодрядСКонцаСтроки(Адрес_Ячейки As Range)
'функция возвращает подряд идущие цифры с конца текста указанной ячейки
    Dim theS As Variant, theR As Variant, theCh As Variant, thePosCh As Variant, i As Variant
    Const theDigits = "0123456789" ' целевые символы
    theS = Адрес_Ячейки.Value ' переменная с значением переданной ячейки
    theR = "" ' переменная, в которой накапливается целевой результат
    theCh = "" ' переменная, которая содержит в себе текущий итый символ
    thePosCh = 0 ' переменная, в которую пишется положение текущего итого символа среди целевых
    i = Len(theS) ' счётчик (в данном случае с конца сроки)
    Do ' начало цикла
    If i = 0 Then Exit Do ' если счётчик достиг нуля, то выход
    theCh = Mid(theS, i, 1) ' итый символ
    thePosCh = InStr(theDigits, theCh) ' позиция итого символа в целевых
    If thePosCh = 0 Then Exit Do ' если достигли НЕ целевого символа, то выход
    theR = theCh + theR ' накапливаем целевые символы из указанной ячейки
    i = i - 1 ' уменьшаем счётчик на единицу
    Loop ' конец цикла
    ЦифрыПодрядСКонцаСтроки = theR ' возвращаем результат
End Function