Problema con MsFlexgrid

[erbuson]

Ha sido un pequeño reto, aquí te dejo una posible solución:

Public Function DiaNum(DiaEnLetras As String) As Integer
' Recibe el dia semana en letras y devuelve su número Lunes 1, Martes 2, ...
DiaNum = InStr("lmmjvsd", LCase$(Left$(DiaEnLetras, 1)))
If DiaNum = 2 And LCase$(Left$(DiaEnLetras, 2)) = "mi" Then DiaNum = 3
End Function

de este modo la comparación si que debería funcionar

Loop While DiaNum(dia_C) > DiaNum("lunes")

aunque como siempre comparas con Lunes, podrías hacer lo siguiente:

Loop While DiaNum(dia_C) > 1

Saludos