Saving with Today's date as part of the string

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...

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


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

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

hth,

Doug

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

It worked Great! Thanks...

"KL" wrote:

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