Suppressing Input Box
I forgot to mention the procedure that incorporates the input box (in
ThisWorkbook):
Private Sub Deposit()
Application.StatusBar = something
Range("A1").Value = InputBox(Prompt, Title)
Call Messages.Messages
End Sub
As a reference, here are the occurrences of this procedu
Private Sub Workbook_BeforeSave(ByVal SaveAsUi As Boolean, Cancel As Boolean)
'Performs actions of Workbook_BeforeClose but does not close the workbook
when complete
Call Workbook_BeforeClose(True)
End Sub
Private Sub Workbook_BeforeClose(Cancel As Boolean)
'Resets workbook and saves file
Sheets(1).Select
Range("All").ClearContents
Range("A3").Select
If Cancel = False Then
ThisWorkbook.Save
Application.StatusBar = False
End If
If Cancel = True Then Call Deposit
End Sub
|