Hi,
I tried to check on previous post but could find relavent answer.
I wanna write a code as follows
Dim docn As Date

Dim fn
'docn = "abi"
'Sheet1.Range("d2").NumberFormat = "[$-409]d-mmm;@"

docn = Format(Date, "[$-409]d-mmm;@")

docn = Sheet1.Range("d2")

'fn = "C:\Documents and Settings\My Documents\" & docn
ActiveWorkbook.SaveAs Filename:= _
"C:\Documents and Settings\Packard Bell\My Documents\" & docn &
".txt", FileFormat:= _
xlText, ReadOnlyRecommended:=False, CreateBackup:=False

but why that file cannot be saved like file name= 25 March
thanks for your help

--
Regards,
Baha