saving file name with the date

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

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" <[email protected]> wrote in message
news:[email protected]...
> 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