ActiveWorkbook SaveAs

[Mike]

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 Morin]

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

 

[Mike]

Jason,

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

Mike