Save As Macro options

[Danielle0904]

I want to do a save as macro that will prompt the user to designate the file
location and enter their own personalized file name. Then once they click
okay to save, I want to be able to complete the macro by emailing it out.

Help!

 

[Ron de Bruin]

Hi Danielle

Install my Mail add-i and you have what you want
http://www.rondebruin.nl/mail/add-in.htm

For code look in the VBA help for

See this example GetSaveAsFilename

Sub Test()
Dim fname As Variant
Dim NewWb As Workbook
Set NewWb = Workbooks.Add(xlWBATWorksheet)
fname = Application.GetSaveAsFilename("", _
fileFilter:="Excel Files (*.xls), *.xls")
If fname <> False Then
NewWb.SaveAs fname
NewWb.Close False
Else
NewWb.Close False
End If
End Sub

For mail code see my Mail page

 

[Per Jessen]

Hi

Try this.

Do
fName = Application.GetSaveAsFilename
Loop Until fName <> False And fName <> """"
ThisWorkbook.SaveAs fName

Regards,
Per