Saving with Today's date as part of the string

[Guest]

Hello all: I'm trying to save a a workbook with the current day's date
(short) automatically as part of the string. I've tried SaveAs and GetSaveAs
with no success. Here is the code:
Private Sub btnSave_Click()
Dim fName As String
MemberDate = xlDateShort
ActiveWorkbook.SaveAs Filename:=fName, FileFormat:=xlNormal
fName = "Member Voting -" & MemberDate

End Sub

Any advice will be sincerely appreciated...

 

[KL]

Hi,

Try this:

Private Sub btnSave_Click()
Dim fName As String
fName="Member Voting -" & Format(Date,"yyyy-mm-dd")
ActiveWorkbook.SaveAs fName
End Sub

Regards,
KL

 

[Doug Glancy]

You need to assign the value to fdate before you use it in the SaveAs.

hth,

Doug

 

[Guest]

It worked Great! Thanks...

Hi,

Try this:

Private Sub btnSave_Click()
Dim fName As String
fName="Member Voting -" & Format(Date,"yyyy-mm-dd")
ActiveWorkbook.SaveAs fName
End Sub

Regards,
KL