date to text formatting

Mark Kubicki · Oct 6, 2003

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

Peo Sjoblom · Oct 6, 2003

Something like this

=TEXT(A1,"mmddyy")

Neil · Oct 6, 2003

Mark,
Try this.

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

Neil · Oct 6, 2003

Mark,
Watch the line wrap
Neil

Neil said:
Mark,
Try this.

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