Nettoarbeitszähltage

Public Function ATC(Start, Ende, Ft)
'von Holger Levetzow
Dim C As Range
Dim i As Date
ATC = 0
For i = Start To Ende
If (Weekday(i)  1) And (Weekday(i)  7) Then ATC = ATC + 1
Next
For i = 1 To Ft.Rows.Count
Set C = Ft.Cells(i, 1)
If C >= Start And C  1) And (Weekday(C)  7) Then ATC = ATC - 1
End If
Next i
End Function

Könnte mir jemand sagen was für die Variable Ft erwartet wird. Es hat den Anschein hier
soll ein Zellenbereich durchsucht werden.
Danke und Gruß
Mike