Hello,
Sorry didn't realise I could add those codes in. I think i have added them now, although let me know if I need to change anything else.
Sub CheckBox1_Click()
Dim cBox As CheckBox
Dim lRow As Integer
Dim LRange As String
LName = Application.Caller
Set cBox = ActiveSheet.CheckBoxes(LName)
lRow = cBox.TopLeftCell.Row
LRange = "E" & CStr(lRow)
If cBox.Value > 0 Then
ActiveSheet.Range(LRange).Value = Format(Date, "dd-mmm") & " " & Format(Time, "hh:mm") & " by " & (Application.UserName)
Else
ActiveSheet.Range(LRange).Value = Null
End If
End Sub
Thanks
Simone
Bookmarks