insert date in multiple textboxes

[novice1]

I have one multiple userforms with multiple textboxes. I also have one calendar (non-activex) that I'm using to enter dates in both sheets and userform textboxes. i currently have this code in all the buttons for each date...

Private Sub D1_Click()
    ThisButton = D1.ControlTipText
    ChkDate
    ActiveCell.Value = ThisButton
    Unload Me
End Sub

I tried to use the below code to enter the date whereever the cursor happens to be located at the time (whether on a sheet or in a textbox of a userform, but it doesn't like it. Can someone assist

target.Value = ThisButton