Dim TheColumn As String
TheColumn = "A"
Cells(Application.Match(Application.Max(Columns(TheColumn)), Columns(TheColumn), 0), TheColumn) = _
Cells(Application.Match(Application.Max(Columns(TheColumn)), Columns(TheColumn), 0), TheColumn) + TimeValue("00:1")
Sub Macro2()'
' Macro2 Macro
' Macro recorded
'
'
Dim TheColumn As String
TheColumn = "A"
Dim MyDate As Date
MyDate = TimeValue(Cells(Application.Match(Application.Max(Columns(TheColumn)), Columns(TheColumn), 0), TheColumn) = _
Cells(Application.Match(Application.Max(Columns(TheColumn)), Columns(TheColumn), 0), TheColumn) + TimeValue("00:01"))
Range("A78").Select
ActiveCell.Value = MyDate
End Sub
Sub Macro2() '
Dim TheColumn As String
TheColumn = "A"
Dim MyDate As Date
MyDate = Cells(Application.Match(Application.Max(Columns(TheColumn)), Columns(TheColumn), 0), TheColumn) + TimeValue("00:01")
Range("A78").Value = MyDate
End Sub