This may help

curyear = "2003"
curmonth = "05"
mycell = Sheet1.Range("a3")

CurDate = (mycell & "/" & curmonth & "/" & curyear)
CurDate = Format(DateValue(CurDate), "dd/mmm/yyyy")

Libby

-----Original Message-----
Hi,

I have a Cur Year ( a 4 digit number) a CurMonth (2 digit
num) and a cell.Value (2digit day).

I want to Concatonate these so I have day/month/year to
do
a date comparison with another date.

This is what I have but I am getting a datatype error

Set CurDate = (CStr(cell.Value) & "/" & CStr(CurMonth)
& "/" & CStr(CurYear))

or

Set CurDate = (cell.Value & "/" & CurMonth & "/" &
CurYear)


.... :(
.