Select Case ... End Select

    Select Case Left(s, 1)
        Case "M" 'M англ
            CusOrd = "M1,M2,M3,M4,M5,M6,M7,M8,M9,M10"
        Case "М" 'M русск
            CusOrd = "М1,М2,М3,М4,М5,М6,М7,М8,М9,М10"
    End Select

    f = Left(s, 1)
    Select Case True
        Case f = "M" 'M англ
            CusOrd = "M1,M2,M3,M4,M5,M6,M7,M8,M9,M10"
        Case f = "М" 'M русск
            CusOrd = "М1,М2,М3,М4,М5,М6,М7,М8,М9,М10"
    End Select

CusOrd = Mid(Join(Array(Nil, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10), "," & Left(s, 1)), 2)

Sub sort()
    Dim CusOrd As String
    Dim f As String * 1
    Dim LC As Integer
    Set twb = ActiveSheet 'ActiveWorkbook.Worksheets(1)
    With twb
        LC = .Cells(Rows.Count, 1).End(xlUp).Row
        f = .Range("c1").Value
        Select Case f
            Case "M", "М"
                CusOrd = Mid(Join(Array(Nil, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10), "," & f), 2)
            Case Else
                Exit Sub
        End Select
        .sort.SortFields.Clear
        .sort.SortFields.Add Key:=Range("C1:C" & LC), _
        SortOn:=xlSortOnValues, Order:=xlAscending, CustomOrder:=CusOrd, DataOption:=xlSortNormal
        With .sort
            .SetRange Range("A1:D" & LC)
            .Header = xlGuess
            .MatchCase = False
            .Orientation = xlTopToBottom
            .SortMethod = xlPinYin
            .Apply
        End With
    End With
End Sub

        rr = Evaluate("Row(R" & r1 & ":R" & r2 & ")")
        cc = Evaluate("row(R" & c1 & ":R" & c2 & ")")

sortfield.sortonvalue

sortfield.sortonvalue.parent.id

Public Sub tesst()
Dim ws As Worksheet, c&
Set ws = Worksheets(1)
c = ws.HPageBreaks.Count
[A1048576] = 1
Debug.Print ws.HPageBreaks(c + 1).Location.Row
[A1048576].Delete xlUp
End Sub

SortField.SortOnValue.Index

IconSetCondition.ReverseOrder

debug.? activesheet.autofilter.filters(НомерСтолбца).criteria1.index

With Selection.FormatConditions
    For i = 1 To .Count
        If TypeOf .Item(i) Is IconSetCondition Then Debug.Print .Item(i).iconSet.ID
    Next
End With

=МАКС(ЕСЛИ(ОТБР(E2)>ОТБР(C2);ВПР(ДЕНЬНЕД(C2;2);{1;20:6;18:7;0};2)/24;ТЕКСТ(E2;"чч:м"))+МИН(-ТЕКСТ(C2;"чч:м");-"9:");)*(ДЕНЬНЕД(C2)>1)+МАКС(СУММ(ЧИСТРАБДНИ.МЕЖД(C2+1;E2-1;{1;11;1};$J$2:$J$20)*{11;9;-9});)/24-(МИН(-ТЕКСТ(E2;"чч:мм");-"9:")+"9:")*(ДЕНЬНЕД(E2)>1)*(ОТБР(E2)>ОТБР(C2))

=СУММПРОИЗВ(АГРЕГАТ(15;6;1/СЧЁТЕСЛИМН(A$2:A$29;A$2:A$29;B$2:B$29;B$2:B$29;C$2:C$29;(C$2:C$29=C2)*C2);СТРОКА($A$1:ИНДЕКС($A:$A;СЧЁТЕСЛИМН(B$2:B$29;B2;C$2:C$29;C2)))))

Sub dd()
    Dim wb As Workbook, uSt(), i&
    Set wb = Application.Workbooks("shared.xlsx")
    uSt = wb.UserStatus
    If UBound(uSt) < 2 Then Exit Sub
    For i = 1 To UBound(uSt)
        If uSt(i, 1) <> Application.UserName Then
            Debug.Print "пользователь " & uSt(i, 1) & " открыл книгу " & Format(uSt(i, 2), "dd.MM.yyyy hh:mm")
        End If
    Next
End Sub

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
    Dim Dic As Object, K
    With Application: .ScreenUpdating = 0: .EnableEvents = 0
    With Sheets("Служебная записка")
        Set Dic = CreateObject("Scripting.Dictionary")
        Dic("начальнику ОРСА Сиротскому М.С.,") = "38:39"
        Dic("начальнику ОРПО Чекалину Л.В.,") = "42:43"
        Dic("начальнику КТО Лужецкому В.Н.,") = "46:47"
        Dic("начальнику ТО Смирнову М.Н.,") = "50:51"
        Dic("начальнику ЭТО Кондратьеву Л.В.,") = "54:55"
        Dic("начальнику ПНРиТО Хлынину М.В.,") = "58:59"
        .Range(Join(Dic.Items, ",")).EntireRow.Hidden = True
        For Each K In Dic.keys
            Select Case K
                Case .[D17], .[D18], .[D19], .[Q17], .[Q18], .[Q19]
                    .Rows(Dic(K)).Hidden = False
            End Select
        Next
        Set Dic = Nothing
    End With
    .ScreenUpdating = 1: .EnableEvents = 1: End With
End Sub

.Formula = Parent.Substitute(arr, ".", Parent.DecimalSeparator)

Sub dd()
10  On Error GoTo Er
    Dim arr As Variant, arr1 As Variant, i&, s$
20  With [A1].CurrentRegion
30      With Intersect(.Columns("D").Offset(5), .EntireRow)
40          arr = .Value: arr1 = .Offset(, 1).Formula
50          With CreateObject("vbscript.regexp")
60              .Pattern = "([0-9]+)?(\s?\S+).*"
70              For i = 1 To UBound(arr)
80                  If .test(arr(i, 1)) Then
90                      s = "=trim(""$2 ""& 0" & arr1(i, 1) & "*text(0$1,""0;;1""))"
100                     arr(i, 1) = Evaluate(.Replace(arr(i, 1), s))
110                 Else: arr(i, 1) = " "
120                 End If
130             Next
140         End With
150         Parent.ScreenUpdating = False: Parent.DisplayAlerts = False
160         .Value = Parent.ReplaceB(arr, Parent.Search(" ", arr), 999, "")
170         .Offset(, 1).Formula = Parent.ReplaceB(arr, 1, Parent.Search(" ", arr), "")
180         Parent.DisplayAlerts = True: Parent.ScreenUpdating = True
190     End With
200   End With
210 Exit Sub
Er:
220 Parent.DisplayAlerts = True: Parent.ScreenUpdating = True
230 With Parent.VBE.MainWindow.LinkedWindows
240     .Add Parent.VBE.Windows("Immediate")
250     .Add Parent.VBE.Windows("Locals")
260 End With
    'Application.VBE.Windows("Immediate").Visible = True
    'Application.VBE.Windows("Locals").Visible = True
270 Debug.Print "Ошибка " & Err.Number & " (" & Err.Description & ") на строке " & Erl
280 Stop
290 Err.Clear
300 Resume Next
End Sub

Sub Base64ToFile(Hash$, FilePath$) 'расшифровка base64 и запись в файл
    Dim ByteArr() As Byte
    With CreateObject("MSXML2.DOMDocument").createElement("b64")
        .DataType = "bin.base64"
        .Text = Hash
        ByteArr = .nodeTypedValue
    End With
    Open FilePath For Binary Access Write As #1
    Put #1, 1, ByteArr
    Close #1
End Sub

Function Base64FromFile$(FilePath$) 'получение base64 файла
    Dim ByteArr() As Byte
    Open FilePath For Binary Access Read As #1
    ReDim ByteArr(LOF(1))
    Get #1, 1, ByteArr
    Close #1
    With CreateObject("MSXML2.DOMDocument").createElement("b64")
        .DataType = "bin.base64"
        .nodeTypedValue = ByteArr
        Base64FromFile = .Text
    End With
End Function