Try replacing

..Range("J31").Text (Date)

with

..Range("J31").Value = Date

Regards,
Ryan

-----Original Message-----
I know this HAS to be simple, but I can't find the
command anywhere, driving
me crazy. I'm just trying to write to a cell the current
date. only in
mm/dd/yyyy format. something like this, but it isn't
right:

With curWks
.Range("J31").Clear
.Range("J31").Bold = True
.Range("J31").Text (Date)
End with



.