Userform CB Date Value

[paldob]

Good Evening,

I have created a userform that details every Monday Date for the year 2018. If I tick a cb, I want the specific Monday date to be input into Worksheets("Weekly Stats") .Range("B2")

As below, I have the code for cb15Jan_click. This puts the value of 15/01/2018 into the correct worksheet and cell. However, it gets put in as text value and messes up all of my VLookup & Index formula's. How could I have this input as a Date format automatically?

Private Sub cb15Jan_Click()
With Me
    If cb15Jan.Value = True Then
    Worksheets("Weekly Stats").Range("B2").Value = "15/01/2018"
    End If
End With
End Sub

Kind regards
Pal

 

[Vbagreenhorn1]

try this:

Private Sub cb15Jan_Click()
If Cb15Jan Then Sheets("Weekly Stats").Range("B2").Value = CDate("15/01/2018")
End Sub