S
Smitty
Put this in a standard module. You can call it from a
Command Buttom or Forms button.
Sub CloseMe()
With Application
.ScreenUpdating = False
.DisplayAlerts = False
End With
ActiveWorkbook.Close True
End Sub
Put this in the ThisWorkbook module.
Private Sub Workbook_BeforeClose()
With Application
.ScreenUpdating = True
.DisplayAlerts = True
End With
End Sub
Hope that helps,
Smitty
Command Buttom or Forms button.
Sub CloseMe()
With Application
.ScreenUpdating = False
.DisplayAlerts = False
End With
ActiveWorkbook.Close True
End Sub
Put this in the ThisWorkbook module.
Private Sub Workbook_BeforeClose()
With Application
.ScreenUpdating = True
.DisplayAlerts = True
End With
End Sub
Hope that helps,
Smitty