Hi Joel,

I think I dimmed something wrong.

Sub Staff_Count()
Dim Sh1RowCount As Integer
Dim Sh2RowCount As Integer
Dim First As Boolean
Dim Earliest As Double
Dim Latest As Double
Dim StartTime As Double
Dim EndTime As Double

Dim EarliestHour As Double
Dim EarliestMinute As Double
Dim LatestHour As Double
Dim LatestMinute As Double
Dim TenMinute As Double
Dim TimeCount As Integer


The code returns the error "Run Time 6 overflow" at

Sh2RowCount = Sh2RowCount + 1

Sh2RowCount shows 32767

Please help clarify

Thanks,

Dan