Checkbox yielding date and username

[The_BlackKnight]

Can someone help me with this code? I am only getting username when I click the checkbox. How do I get this to give me the date also?

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
.Value = Environ$("UserName")

End If
End With
End Sub

 

[Skyybot]

Try this:

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 = Environ$("UserName") & " " & Date


End If
End With
End Sub

 

[The_BlackKnight]

IT WORKED!!!! Thank you Skyybot!!!

 

[Skyybot]

Happy to help.