Saving Workbook
See your first post.
yasser wrote:
Right now, a button runs the following code:
---------------------------------------------------
Private Sub CmdSubmit_Click()
Application.DisplayAlerts = False
ThisWorkbook.SaveAs "C:\Census\Archive\" & Sheet1.Cells(1, 1).Value &
".xls"
Application.DisplayAlerts = True
Application.DisplayAlerts = False
ThisWorkbook.SaveAs "C:\Census\Batch_Files\" & Sheet1.Cells(1, 2).Value
& ".xls"
Application.DisplayAlerts = True
MsgBox ("File Submitted Successfully")
Application.ActiveWorkbook.Close
End Sub
------------------------------------------------
Please tell me how to incorporate a condition which checks if a (C6) is
filled in before saving the file. If cell C6 is empty, I want users to get a
message box stating that they MUST fill in an entry in C6 before saving the
file.
Thanks,
Yasser
--
Dave Peterson
|