Time
Sub FillTimes()
Dim iCt As Integer
Dim iMax As Integer
iMax = 60 * 24 * (Range("F2") - Range("D2"))
Do
Range("B" & 5 + iCt) = Range("D2") + iCt / (24 * 60)
iCt = iCt + 1
Loop Until iCt = iMax + 1
Range("B2:B" & 5 + iMax).NumberFormat = "m/d/yyyy h:mm"
End Sub
Hth,
Merjet
|