Set Day of Checkbox Change on Another Sheet

[stusic]

Hello All!

I've got a bunch of checkboxes on a sheet and, in the same cell of another sheet, I'd like to record when any of them are checked.

I understand I should use something like this to get the checkboxes:

Set cb = ActiveSheet.CheckBoxes(Application.Caller)
If cb.Value = xlOn Then
...

I've seen a way to put the day on an offset cell of the same sheet:

With xChk.TopLeftCell.Offset(, 50)

This seems pretty simple, but I'm not sure how to iterate through them and place it in the corresponding cell on the other sheet and need some help

 

[NoSparks]

Try this

  Dim calleraddress As String
    
    With ActiveSheet.CheckBoxes(Application.Caller)
        If .Value = xlOff Then
            Exit Sub
        Else
            calleraddress = .TopLeftCell.Address(0, 0)
            Sheet2.Range(calleraddress) = Now
        End If
    End With

 

[stusic]

Try this

  Dim calleraddress As String
   
    With ActiveSheet.CheckBoxes(Application.Caller)
        If .Value = xlOff Then
            Exit Sub
        Else
            calleraddress = .TopLeftCell.Address(0, 0)
            Sheet2.Range(calleraddress) = Now
        End If
    End With

That is perfect! It seems much simpler than what I was trying to come up with, lol. I appreciate the help