Try using the worksheetfunction TEXT

Like so

orderDate =
WorksheetFunction.Text(Worksheets("input").Range(" orderDate").Value,
"DD-MMM-YYYY")
orderFile = facHisDir & invoiceNumber & "_" & facHisReg & "_" & orderDate &
".xls"

Cheers

Edwin



"Baha" wrote in message
...
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