Roedd <<Office User wedi ysgrifennu:
Response = MsgBox(FileSave1, vbYesNo + vbQuestion, "Save File?")
If Response = vbNo Then
Application.DisplayAlerts = False
ActiveWorkbook.Close
Else
If Range("data5").Value = "" Then
MsgBox FileSave3, vbOKOnly + vbInformation, "Enter Customer
Name" Application.DisplayAlerts = False
Application.EnableEvents = False
Else
ActiveWorkbook.SaveAs Filename:=sPath & Range("data5").Value &
Format(Now(), " mm.dd.yyyy") & ".xls"
MsgBox FileSave2, vbOKOnly + vbInformation, "File Saved"
ActiveWorkbook.Close
End If
End If
Application.DisplayAlerts = True
Application.EnableEvents = True
End Sub
Your code does not set Application.DisplayAlerts = False before attempting
to save.
--
Rob
http://www.asta51.dsl.pipex.com/webcam/
This message is copyright Robert Bruce and intended
for distribution only via NNTP.
Dissemination via third party Web forums with the
exception of Google Groups and Microsoft Communities
is strictly prohibited and may result in legal action.