.Range("L3").Value = format(Sheets("АКТ-вып.работ").Cells(LastRow, 3).Value, "dd.mmmm.yyyy")

Dim Pass As String
Dim a As Long
a = 3
Do
Pass = InputBox("Введите пароль", "Информация", , "111")
Select Case True 'начало блока процедуры проверяет на "правда" внутри процедуры
    Case StrPtr(Pass) = 0 'процедура проверяет нажата ли кнопка отмена"
    MsgBox "Нажата кнопка Отмена. Процедура прервана", vbCritical, "DelCols"
    Exit Sub
    Case Pass = "": MsgBox "Строка пустая" 'проверяет пустое поле
    Case Pass <> a: MsgBox "пароль не верный" 'сравнивает больше или меньше значение находится в строке
    Case Pass = a: MsgBox "пароль верный": UserForm1.Show
Exit Do
End Select
Loop

Dim Pass As String
Dim a As Long
a = 3
Do
Pass = InputBox("Message", , , "111")
If StrPtr(Pass) = 0 Then
    MsgBox "Нажата кнопка Отмена. Процедура прервана", vbCritical, "DelCols"
    Exit Sub
End If
Select Case Pass
    Case Is = "": MsgBox "Строка пустая"
    Case Is <> a: MsgBox "пароль не верный"
    Case Is = a: MsgBox "пароль верный": UserForm1.Show
Exit Do
End Select
Loop

............
Dim Pass As String
Dim a As Long
a = 3
Do
Pass = InputBox("Message", , Default, "111")

Select Case Pass
    Case "": MsgBox "поле пустое"
    Case Is <> a: MsgBox "пароль не верный"
    Case Is = a: MsgBox "правильно": UserForm1.Show
Exit Do
End Select
Loop
...........

=ВПР(ИНДЕКС('0000'!$C$2:$C$1500;НАИМЕНЬШИЙ(ЕСЛИ($F$1='0000'!C3:I1501;СТРОКА('0000'!C3:C1501)-1;"");СТРОКА()-5));$A$5:$A$100;1;0)

Sub сегодня() 'макрос для фильтра на актуальную дату

On Error GoTo m
Dim m As Integer
    
    With Application
        .EnableEvents = 0: .ScreenUpdating = 0
        With ActiveSheet
            If .FilterMode Then .ShowAllData
            With .UsedRange
                With Intersect(.Columns("N:O"), .Offset(1))
                    .Replace Date, "=zz1", 2, , , , False, False
                    .Rows.Hidden = True
                End With
            End With
        End With
        With [zz1].DirectDependents
            .Rows.Hidden = False
            .Formula = Date
        End With
        .EnableEvents = 1: .ScreenUpdating = 1
    End With
Exit Sub
m:        MsgBox ("Платежей по графику, На дату " & Date & ", отсутствуют!"), vbInformation, "Ошибка формирования фильтра"
Call сброс

End Sub