Copy cell data to another sheet and add date to cell with same checkbox

[zox2005]

Hi

I have already a checkbox for adding date when is checked. Also on this checkbox i have rule for changing background on selected cells.

I can't make it work when i want to copy from cells A3:C3 (sheet1) to A3:C3 (sheet2)

Here is my code

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

 

[MickG]

Perhaps:-

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