Thanks. Works great. I'm just learning this so bare with me.

"Bob Phillips" wrote:

Something like

With rng.Offset(0, 1)
.Value = InputBox("Enter start time 24-hour clock")
.Value = .Value + TimeSerail(1,0,0)
.Font.Bold = True
End With

--
HTH

Bob Phillips

(remove nothere from email address if mailing direct)

"srroduin" wrote in message
...
how does that fit into the code? I keep getting errors.

"Bob Phillips" wrote:

add (1/24) or timeserial(1,0,0)



--
HTH

Bob Phillips

(remove nothere from email address if mailing direct)

"srroduin" wrote in message
...
How do I add an hour to what the user types into the input box of the
("Enter
start time 24-hour clock")?

Private Sub Hourly_Click()
Dim rng As Range

Set rng = ActiveSheet.Cells(Rows.count, "A").End(xlUp).Offset(1,
0)
rng.Value = InputBox("Enter start date mm/dd/yyyy")
rng.Offset(0, 1).Value = InputBox("Enter start time 24-hour
clock")
rng.Offset(0, 1).Font.Bold = True
rng.Offset(0, 2).Value = InputBox("Enter stop date mm/dd/yyyy")
rng.Offset(0, 3).Value = InputBox("Enter stop time 24-hour clock")
rng.Offset(0, 4).Value = InputBox("Enter TSN to increase")
rng.Offset(0, 5).Value = InputBox("Enter TSN to decrease")
rng.Offset(0, 6).Value = InputBox("Enter MW Amount")
Set rng = Nothing


End Sub