Sub SimpleGetSaveAsFilename() Dim sFile As String sFile = Application.GetSaveAsFilename Debug.Print sFile End Sub