How can I make the save as box pop up with code

Application.Dialogs(xlDialogSaveAs).Show

Steve, try this.

Sub SaveBook()
Dim vFileName As Variant

vFileName = Application.GetSaveAsFilename

If vFileName = False Then
MsgBox "Name not specified" & vbCrLf & "File Not Saved", vbOKOnly, "Save File"
Exit Sub
Else
Application.ActiveWorkbook.SaveAs vFileName & ".xls", xlWorkbookNormal
End If
End Sub

Jerid

That's nice and clean.

Is there a way to have another macro continue after
the file is saved? I want to have a workbook sent
as e-mail, via outlook, and would like to have
this happen automatically after the file is saved.