">="&ДАТА(2025;1;1)

Sub DelFromWb()
    Dim ws As Worksheet
    for each ws in activeworkbook.Worksheets
    'здесь код для удаления всех объектов с листа, который знаю :)
    'или такой:
    On Error resume next
    ws.drawingobjects.delete
    On Error goto 0
    next
End Sub

=--ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(A1;"мая";"май");СИМВОЛ(160);" ");",";"");".";"")

=ЗНАЧЕН(ПОДСТАВИТЬ(A1;".,";""))

=--ПОДСТАВИТЬ(A1;".,";"")

=СУММЕСЛИ(СМЕЩ($B$2;ПОИСКПОЗ($E11;$A$3:$A$20;0);0;ПОИСКПОЗ("Прим.:";СМЕЩ($A$2;ПОИСКПОЗ($E11;$A$3:$A$20;0);0;20);0)); F$10;СМЕЩ($C$2;ПОИСКПОЗ($E11;$A$3:$A$20;0);0;ПОИСКПОЗ("Прим.:";СМЕЩ($A$2;ПОИСКПОЗ($E11;$A$3:$A$20;0);0;20);0)))

=B1&СИМВОЛ(10)&C1&СИМВОЛ(10)&D1

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim rc As Range
    
    On Error Resume Next
    For Each rc In Target
        If InStr(1, rc.Formula, "=ИзвлечьДатуДокумента1(", 1) > 0 Then
            rc.NumberFormat = "dd.MM.yyyy"
        End If
    Next
End Sub

Public Function ИзвлечьДатуДокумента1(Text As String) As Date
    ИзвлечьДатуДокумента1 = CDate(MyReg(Text, "\d{2}\.\d+\.\d+"))
End Function

Private Sub Workbook_NewSheet(ByVal Sh As Object)
    With Application
        .ScreenUpdating = False
        .DisplayAlerts = False
        Sh.Visible = 2
        .DisplayAlerts = True
        .ScreenUpdating = True
    End With
    MsgBox "disable to add sheets"
End Sub