VBA - Insert current time PLUS one minute

Andrew_Hinson 

One option is to format the cell as hh:mm. The date part will still be present, but not shown in the cell:

Sub TimePlusOne
    On Error Resume Next
    With ActiveCell
        .Value = DateAdd("n", 1, Now)
        .NumberFormat = "hh:mm"
    End With
End Sub

If you prefer to enter only the time in the cell:

Sub TimePlusOne()
    Dim t As Date
    On Error Resume Next
    t = Now
    With ActiveCell
        .Value = DateAdd("n", 1, t - Int(t))
        .NumberFormat = "hh:mm"
    End With
End Sub