Copy cell $G$1 (value only) 1 cell to the right of the checkbox when clicked

[Djro69]

Currently have the following vba which inserts today's date 2 cells to right of checkbox.

Can I add something that also copies cell $G$1, values only, 1 cell to the right of the checkbox?


Sub CheckBoxDate()



Dim ws As Worksheet



Dim chk As CheckBox



Dim lcolD As Long



Dim lColChk As Long



Dim lRow As Long



Dim RngD As Range



lcolD = 2

Set ws = ActiveSheet

Set chk = ws.CheckBoxes(Application.Caller)

lRow = chk.TopLeftCell.Row

lColChk = chk.TopLeftCell.Column

Set RngD = ws.Cells(lRow, lColChk + lcolD)

Select Case chk.Value

Case 1

RngD.Value = Date

Case Else

RngD.ClearContents

End Select







End Sub

 

[Artik]

...
        Case 1
            RngD.Value = Date
            RngD.Offset(, -1).Value = ws.Range("G1").Value
        Case Else
...

Artik