Using macro to save as todays date

[Guest]

Hello,

can someone help me,
I can write a macro to save the file as a single referenced cell, but can
anyone help me in creating a macro which either within the macro or by
referencing a cell returns a file named as "PA2005-01-05" or the date for the
current day.
I have used '=now()' in say cell A1 but am not sure how to put this through
a macro to give me a file name saved as the format "PA2005-01-05", please any
help,

many thanks

Andy

 

[Nick Hodge]

Andy

Something like

ActiveWorkbook.SaveAs _
Filename:="PA" & Format(Now(), "yyyy-mm-dd") & ".xls"

Will save it to the default folder

--
HTH
Nick Hodge
Microsoft MVP - Excel
Southampton, England
(e-mail address removed)

 

[Bob Phillips]

MyFile = "PA" & Format(Date,"yyyy-mm-dd") & ".xls"

--

HTH

RP
(remove nothere from the email address if mailing direct)

 

[vidi]

may this help

sub savingfile()

'this eg i wish to save file in folder named c:\data

MyFileName = "C:\DATA\PA" & Date & ".XLS"

ActiveWorkbook.SaveAs Filename:=MyFileName, FileFormat:=xlNormal _
, Password:="", WriteResPassword:="",
ReadOnlyRecommended:=False, _
CreateBackup:=False

End Sub


My e-mail : (e-mail address removed)

 

[Tom Ogilvy]

fName = "PA" & format(date,"yyyy-mm-dd") & ".xls"

 

[Guest]

Thanks all, the 1st reply worked great thanks,

Cheers for all the replies

Andy