Save as box
 

Hello!

I was wondering how to call up the "save as" box with code (as if you
went to File and selected Save As...). I tried through the macro
recorder, but it wouldn't let me stop recording when the box was open.

Thanks,
ME


--
EMoe
------------------------------------------------------------------------
EMoe's Profile: http://www.excelforum.com/member.php...o&userid=23183
View this thread: http://www.excelforum.com/showthread...hreadid=473255

Save as box
 

You could adapt this:

Sub SaveAs()
Dim flname As String
Dim fullName As Variant
Dim filter As String
flname = "SaveName"
filter = "Excel Files (*.xls), *.xls"
fullName = Application.GetSaveAsFilename(flname, filter, , _
"Save File as...")
If fullName < False Then
Application.DisplayAlerts = False
ThisWorkbook.SaveAs fullName
Application.DisplayAlerts = True
End If
End Sub


Hope this helps
Rowan

EMoe wrote:
Hello!

I was wondering how to call up the "save as" box with code (as if you
went to File and selected Save As...). I tried through the macro
recorder, but it wouldn't let me stop recording when the box was open.

Thanks,
ME

Save as box
 

Thanks Rowan,

This code works perfectly. This is what I was looking for.

Regards,
EMoe :)


--
EMoe
------------------------------------------------------------------------
EMoe's Profile: http://www.excelforum.com/member.php...o&userid=23183
View this thread: http://www.excelforum.com/showthread...hreadid=473255

Save as box
 

You're welcome.

EMoe wrote:
Thanks Rowan,

This code works perfectly. This is what I was looking for.

Regards,
EMoe :)