Datumsreihe ohne Wochenende

Sub Zeitschiene()
Dim lR As Integer, i As Integer
Dim lol As Date
lR = Range("C1").Value + 1  ' Zähler wie viele Tage die Datumsschiene enthält
lol = Range("D1").Value + 1 'Startdatum
For i = 2 To lR
Cells(i, 1) = lol
lol = lol + 1
Next i
End Sub

das was ich nicht auf die Reihe brinnge:
wie kann ich es erreichen das es Tage die auf ein Wochenende fallen(Sa und So) übersprungen werden
Danke schon mal im Voraus
mfg
Harry