Mira aqui te dejo un pequeño ejemplo, que te ayudara para lo que buscas:
Option Explicit
Private Sub Form_Load()
Dim sActualDay As String
Dim dActualDate As Date
Dim dFutureDate As Date
'#diferencia entre dos fechas en dias
dActualDate = Date
dFutureDate = CDate("20/7/2010")
MsgBox DateDiff("d", dActualDate, dFutureDate)
'#Dia de la semana
Select Case DatePart("w", Now)
Case 1: sActualDay = "domingo"
Case 2: sActualDay = "lunes"
Case 3: sActualDay = "martes"
Case 4: sActualDay = "miercoles"
Case 5: sActualDay = "jueves"
Case 6: sActualDay = "viernes"
Case 7: sActualDay = "sabado"
End Select
MsgBox "Hoy es : " & sActualDay
End Sub
La cosa seria hacer (como bien te dice
Novlucker 
) un bucle entre la fecha inicial y la final y comprobar que dia de la semana es...
Salu2!
Autor
En línea
