Why am I getting an argument error in my Excel worksheet using this VBA procedure?

Question

I have written such a VBA function in my Excel worsheet:

Public Function total(rng As Range, ByVal sgn As String) As Date

Dim hrs As Date

hrs = 0

For Each