You shouldn't have to if the cell contains a date.

As a demonstration, this works fine for me:

Sub tester1()
Dim dt As Date
ActiveCell.Value = Date
dt = ActiveCell.Value
MsgBox dt
End Sub

--
Regards,
Tom Ogilvy


"sbowman" wrote:

I just figured it out...I need to dim copyeventdatecell as variant,
duh!!!

Sorry if I wasted anyone's time...

Shelley