Function check(snmn)
    r2 = Len(snmn)
    count = 0
  
    For r1 = 1 To r2
        If Right(Left(snmn, r1), 1) = "Ё" Or Right(Left(snmn, r1), 1) = "ё" Then 'не мог никак посчитать кол-во ё в строке кроме этого странного метода 
            count = count + 1
        End If
        If Right(Left(snmn, r1), 1) = "Е" Or Right(Left(snmn, r1), 1) = "е" Then 'не мог никак посчитать кол-во е в строке кроме этого странного метода 
            count = count  + 1
        End If
    Next r1
    
    str1 = Split(snmn, " ", 3)
    comb2 = 2 ^ count
    For comb1 = 1 To comb2
        'str2 = Replace(str1(0), "ё", "е")&
    Next c1
end function

Sub ОткрытиеКнигДляГрафПромежутков()
    Workbooks.Open "\\ДокументыИвановП.Ю\Графики временных промежутков\Новая папка\Лист Microsoft Excel.xlsm"
    Worksheets("Лист1").Select
    Cells(3, 2).Select
    ActiveSheet.Paste

    Call отчёт
End Sub