Ok, I solved my problem with this code:
Function chkSat(startCell, endCell)
Dim cell As Range
Application.Volatile
For Each cell In Range(startCell, endCell)
If IsDate(cell) And Weekday(cell) = 7 Then satCount = satCount + 1
Next cell
chkSat = satCount
End Function