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

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

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

You're welcome.

EMoe wrote:
Thanks Rowan,

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

Regards,
EMoe :)