Здесь водятся драконы.
                              Надпись на старинной карте
           (Эпиграф в какой-то книге по С++ к главе объясняющей смысл ООП)

Private Function CheckPoint(ByVal sInterval As String, ByVal nPoint As Long) As Boolean
Dim i As Long, nStartInterval As Long, nEndInterval As Long, vSplitInterval As Variant
vSplitInterval = Split(sInterval, "-")
' Получаем интервалы
nStartInterval = NameDayWeek2Number(vSplitInterval(LBound(vSplitInterval)))
nEndInterval = NameDayWeek2Number(vSplitInterval(UBound(vSplitInterval)))
' Собственно сама проверка
CheckPoint = (nStartInterval >= nPoint And nEndInterval <= nPoint)
End Function

Private Function NameDayWeek2Number(ByVal sNameDay As String) As Long
' Делаем преобразование дня недели в число, основываясь на том,
' что нет диапазонов переваливающих за воскресенье,
' типа пятница-понедельник
Select Case sNameDay
Case "пн"
    NameDayWeek2Number =  1 
Case "вт"
    NameDayWeek2Number =  2 
Case "ср"
    NameDayWeek2Number =  3 
Case "чт"
    NameDayWeek2Number =  4 
Case "пт"
    NameDayWeek2Number =  5 
Case "сб"
    NameDayWeek2Number =  6 
Case "вс"
    NameDayWeek2Number =  7 
Case Else
'    NameDayWeek2Number = -1
' Если название дня не правильное, генерим ошибку, можно возвращать значение ошибки,
' которое нужно было-бы проверять, но! мне, в сочинении, лень :(
    Err.Raise vbObjectError +  1 , "NameDayWeek2Number", _
    "Не правильная абревиатура для названия дня недели - " & sNameDay
End Select
End Function

Dim nRow As Long, nCol As Long
Dim nColInterval As Long, nRowPoint As Long
nColInterval =  1  ' Номер столбца с интервалом
nRowPoint =  2  ' Номер строки с днем недели
For nRow =  3  To По_количеству_строк_с_диапазонами
    For nCol =  2  To  31 
    If CheckPoint(CStr(Cells(nRow, nColInterval).Value), NameDayWeek2Number(CStr(Cells(nRowPoint, nCol).Value))) Then
        ' Тут закрашиваем сереньким
    Else
        ' Тут убираем любую закраску
    End If
    Next nCol
Next nRow

?CheckPoint("ср-чт", 4 )
False

' Собственно сама проверка
CheckPoint = (nStartInterval <= nPoint And nEndInterval >= nPoint)