Mark,
Watch the line wrap
Neil
"Neil" wrote in message
...
Mark,
Try this.

Sub ChangeMe()
ActiveSheet.Range("B1").Value = Format(ActiveSheet.Range("a1").Value,
"mmddyy")
End Sub


"Mark Kubicki" wrote in message
...
need to convert today's date (10/06/03) into the text format "100603"

i give up, how do ya do it?
thanks in advance
mark