Vba Code Script for Timestamp and Username Form Control Checkbox Excel

[aabrazil1]

Hello All,

The code works below for date when I check the checkbox. Which line do I add Time and Username? I tried

.Value = Date & " " & Time

and the time does not work. Would username go on the same line? My apologies if this question is beyond the scope of this forum.

Sub CheckBox_Date_Stamp()
Dim xChk As CheckBox
Set xChk = ActiveSheet.CheckBoxes(Application.Caller)
With xChk.TopLeftCell.Offset(, 1)
    If xChk.Value = xlOff Then
        .Value = ""
    Else
       .Value = Date
    End If
End With
End Sub

 

[Domenic]

Try...

.Value = Application.UserName & ": " & Format(Now(), "yyyy-mm-dd hh:mm:ss")

Hope this helps!