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

iCell.FormulaLocal = iCell.Formula

iCell.FormulaLocal = iCell.FormulaLocal

=ПОДСТАВИТЬ(ПОДСТАВИТЬ(A1;СИМВОЛ(10);" ");СИМВОЛ(13);" ")

each Not List.Contains(list,[Наименование])

=СУММПРОИЗВ((МЕСЯЦ(A3:A22)=МЕСЯЦ(СЕГОДНЯ()))*(ГОД(A3:A22)=ГОД(СЕГОДНЯ())))

=СЧЁТЕСЛИМН(A3:C22;">="&ДАТА(ГОД(СЕГОДНЯ());МЕСЯЦ(СЕГОДНЯ());1);A3:C22;"<"&ДАТА(ГОД(СЕГОДНЯ());МЕСЯЦ(СЕГОДНЯ())+1;1))

'заменяем
    For lr = 1 To UBound(avArr, 1)
        s = avArr(lr, lToFindCol)
        If Len(s) Then 'если значение для замены не пустое
            Selection.Replace s, avArr(lr, lToReplaceCol), lLookAt
        End If
    Next lr

'заменяем
    Dim ws As Worksheet
    For Each ws In ActiveWorkbook.Worksheets
        If ws.Name <> "Соответствия" Then
            For lr = 1 To UBound(avArr, 1)
                s = avArr(lr, lToFindCol)
                If Len(s) Then 'если значение для замены не пустое
                    ws.Cells.Replace s, avArr(lr, lToReplaceCol), lLookAt
                End If
            Next lr
        End If
    Next