Add to a "number as text"
Hi Howard,
Am Mon, 6 Oct 2014 18:55:40 -0700 (PDT) schrieb L. Howard:
03:04 stuff etc things whatever
04:23 bla bla bla bla
try:
Sub Add4Min()
Dim LRow As Long
Dim rngC As Range
Dim dblSub As Double
With ActiveSheet
LRow = .Cells(Rows.Count, 1).End(xlUp).Row
For Each rngC In .Range("A1:A" & LRow)
dblSub = TimeValue(Left(rngC, 5))
rngC = Format(dblSub + TimeSerial(0, 4, 0), "hh:mm") _
& " " & Mid(rngC, 7, 99)
Next
End With
End Sub
Regards
Claus B.
--
Vista Ultimate / Windows7
Office 2007 Ultimate / 2010 Professional
|