ActiveWorkbook SaveAs

Can anyone share code that can be used instead of ActiveWorkbook.Save
to produce the SaveAs routine to provide option to SaveAs a different
file name?

TIA

Mike

This may give you a few ideas:

Sub test()
Dim SaveName As String
Dim fFilter As String
Dim NewName As String
NewName = "<Save Under New Name>"
fFilter = "Excel Files (*.xls), *.xls"
SaveName = Application.GetSaveAsFilename _
(NewName, fileFilter:=fFilter)
End Sub

HTH
Jason
Atlanta, GA

>-----Original Message-----
>Can anyone share code that can be used instead of
ActiveWorkbook.Save
>to produce the SaveAs routine to provide option to
SaveAs a different
>file name?
>
>TIA
>
>Mike
>
>.
>

Jason,

Thanks! Just what I wanted...much appreciated.

Mike

Jason Morin wrote:
> This may give you a few ideas:
>
> Sub test()
> Dim SaveName As String
> Dim fFilter As String
> Dim NewName As String
> NewName = "<Save Under New Name>"
> fFilter = "Excel Files (*.xls), *.xls"
> SaveName = Application.GetSaveAsFilename _
> (NewName, fileFilter:=fFilter)
> End Sub
>
> HTH
> Jason
> Atlanta, GA
>
> >-----Original Message-----
> >Can anyone share code that can be used instead of
> ActiveWorkbook.Save
> >to produce the SaveAs routine to provide option to
> SaveAs a different
> >file name?
> >
> >TIA
> >
> >Mike
> >
> >.
> >