Нужно определить количество определенных рабочих дней недели и или их комбинаций в интервале дат

Sub main()
Dim myStr As String
myStr = Cells(5, 12)
 
Call Часы(bDate, eDate, myStr)
 
End Sub
 
Function Часы(bDate As Date, eDate As Date, str As String)
Dim days() As String
...
days = Split(str, ",")
... 
End Function

days = Split(str, ",") 'разделяем полученные дни по запятым
 
For i = 1 To UBound(days) 'перебираем циклом запрошенные дни 
    Call showResult(days(i), arrWorkDays(i + 1)) 'вызываем функцию, которая покажет день недели и количество этих дней
Next i

If days(0)="д" Then
...
ElseIf days(0)="н" Then
...
Else
MsgBox("Неверный параметр!")
Exit sub
End If

    For j = startWeekend To lastRow 'пробегаемся по праздникам
        If Sheets("ПраздничныйЛист").Cells(j, 1) = d Then
            flagWeekday = True 'если нашли, то устанавливаем флаг
            Exit For 'выходим из цикла т.к. нету смысла искать дальше
        End If
    Next j

If days(0) = "н" Then
  startWeekend = 1
    ElseIf days(0) = "д" Then
    startWeekend = 15
    Else
     MsgBox ("Неверное значение!")
  End If

 Call showResult(days(i), arrWorkDays(i + 1)) 'вызываем функцию, которая покажет день недели и количество этих дней
Next i