My problem is that timevalue(Range("F55").Value) comes out as 12:05:00 AM, so
Dim i as integer
dim d as date
dim STime as string
dim ETime as string
STime = Range("F55").Value
ETime = Range("J55").Value
for i = 0 to datediff("h",STime ,ETime)
d = dateadd("h", i, STime)
debug.print d
next i
prints as
12:05:00 AM
1:05:00 AM
2:05:00 AM
3:05:00 AM
4:05:00 AM
5:05:00 AM
6:05:00 AM
7:05:00 AM
8:05:00 AM
9:05:00 AM
10:05:00 AM
11:05:00 AM
12:05:00 PM
1:05:00 PM
2:05:00 PM
3:05:00 PM
INSTEAD OF
12:00:00 PM
1:00:00 PM
2:00:00 PM
3:00:00 PM
Bookmarks