CLng on a Date variable giving Type Mismatch error

[shavenlunatic]

The following comes up with a type mismatch error when on the last line:

-----------------------------------------------------
repform = ActiveCell.Value & "/" & Sheet4.Cells(13, 2) & "/" & Format(Sheet4.Cells(13, 3), "00")

repform = Format(repform, "dd/mm/yyyy")

sheetdate = CLng(repform) <-- error
-----------------------------------------------------

in the immediate window:
?repform
31/10/2006

the variable isn't declared as anything else so am not sure what is going wrong.

________
clueless

 

[shavenlunatic]

I fixed it with:

repform = Format(repform, "0")

MADNESS

________
clueless

 

[SkipVought]

FYI...

Why do Dates and Times seem to be so much trouble? faq68-5827

Skip,

_[red][/red]

 

[PHV]

Another way:
repform = CDate(ActiveCell.Value & "/" & Sheet4.Cells(13, 2) & "/" & Format(Sheet4.Cells(13, 3), "00"))

Hope This Helps, PH.
Want to get great answers to your Tek-Tips questions? Have a look at FAQ219-2884 or FAQ181-2886