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