Pick the Perfect Location with GetSaveAsFilename
Sub SimpleGetSaveAsFilename() Dim sFile As String sFile = Application.GetSaveAsFilename Debug.Print sFile End Sub