Dim fname As String fname = Application.GetSaveAsFilename If fname <> "False" Then ' .... Else ' .... End If