Userform data as a date value

[colinharwood]

If Not rng Is Nothing Then
Application.ScreenUpdating = False
Application.Goto rng
ActiveCell.Offset(rowOffset:=0, columnOffset:=15).Select
ActiveCell.Value = DatePaid.Value
ActiveCell.Offset(rowOffset:=0, columnOffset:=-16).Select
SelectedCell = Application.ActiveCell.Value
Sheets("PDF Membership Card").Select
Range("X2").Value = SelectedCell

The above code is part of a macro to transfer data from a userform to a worsheet. Is there a way to ensure that Datepaid.value gets entered as a date value, rather than text on the worksheet

Thanks

 

[ranman256]

= CVDate(DatePaid.Value)

 

[colinharwood]

Brilliant, just what I wanted
Thanks a lot
Colin