??? (wrong number of arguments or invalid property assignment)
if user has selected a cell in any of these (3) ranges... do this...

Dim rngTimeEntry As Range
Dim rngProjectTotalHours As Range
Dim rngDateTotalHours As Range

rngTimeEntry = "E6:R" & ActiveSheet.Range("totalcellref").Row - 1
rngProjectTotalHours = "U6:U" & ...
rngDateTotalHours = "E" & CStr(ActiveSheet.Range("total...

If Not Intersect(Target, Range(rngTimeEntry, rngProjectTotalHours,
rngDateTotalHours)) _
Is Nothing Then
...
End If



-------------------
THANKS IN ADVANCE, Mark