I am doing something wrong. I want to clear two forms and then save the workbook upon the user attempting to close the workbook.
I keep getting an error message:Event Procedure declaration doesn't match description of event having the same name. What am I doing wrong?
Private Sub Workbook_BeforeClose()
'This macro clears the supplemental form
Application.ScreenUpdating = False
Sheets("supplemental").Select
Range("h4").Select
ActiveCell.Clear
Range("C14").Select
ActiveCell.FormulaR1C1 = ""
Range("C16").Select
ActiveCell.FormulaR1C1 = ""
Application.ScreenUpdating = True
'This macro clears the worksheet form
Sheets("worksheet").Select
Range("I4").Select
ActiveCell.FormulaR1C1 = ""
Range("E7").Select
ActiveCell.FormulaR1C1 = ""
Range("E8").Select
ActiveCell.FormulaR1C1 = ""
Range("E9").Select
ActiveCell.FormulaR1C1 = ""
Range("f7").Select
ActiveCell.Clear
Range("e12").Select
ActiveCell.Clear
Range("e15").Select
ActiveCell.Clear
Range("F19").Select
ActiveCell.FormulaR1C1 = ""
Range("G19").Select
ActiveCell.FormulaR1C1 = ""
Range("H19").Select
ActiveCell.FormulaR1C1 = ""
Range("F21").Select
ActiveCell.FormulaR1C1 = ""
Range("F23").Select
ActiveCell.FormulaR1C1 = ""
Range("H23:I23").Select
ActiveCell.FormulaR1C1 = ""
Range("F25").Select
ActiveCell.FormulaR1C1 = ""
Range("F27").Select
ActiveCell.FormulaR1C1 = ""
Range("F29").Select
ActiveCell.FormulaR1C1 = ""
Range("e31").Select
ActiveCell.Clear
Range("e32").Select
ActiveCell.Clear
Range("E34:F34").Select
ActiveCell.FormulaR1C1 = ""
Range("E36:F36").Select
ActiveCell.FormulaR1C1 = ""
Range("E38").Select
ActiveCell.Clear
ActiveWorkbook.save
End Sub
I keep getting an error message:Event Procedure declaration doesn't match description of event having the same name. What am I doing wrong?
Private Sub Workbook_BeforeClose()
'This macro clears the supplemental form
Application.ScreenUpdating = False
Sheets("supplemental").Select
Range("h4").Select
ActiveCell.Clear
Range("C14").Select
ActiveCell.FormulaR1C1 = ""
Range("C16").Select
ActiveCell.FormulaR1C1 = ""
Application.ScreenUpdating = True
'This macro clears the worksheet form
Sheets("worksheet").Select
Range("I4").Select
ActiveCell.FormulaR1C1 = ""
Range("E7").Select
ActiveCell.FormulaR1C1 = ""
Range("E8").Select
ActiveCell.FormulaR1C1 = ""
Range("E9").Select
ActiveCell.FormulaR1C1 = ""
Range("f7").Select
ActiveCell.Clear
Range("e12").Select
ActiveCell.Clear
Range("e15").Select
ActiveCell.Clear
Range("F19").Select
ActiveCell.FormulaR1C1 = ""
Range("G19").Select
ActiveCell.FormulaR1C1 = ""
Range("H19").Select
ActiveCell.FormulaR1C1 = ""
Range("F21").Select
ActiveCell.FormulaR1C1 = ""
Range("F23").Select
ActiveCell.FormulaR1C1 = ""
Range("H23:I23").Select
ActiveCell.FormulaR1C1 = ""
Range("F25").Select
ActiveCell.FormulaR1C1 = ""
Range("F27").Select
ActiveCell.FormulaR1C1 = ""
Range("F29").Select
ActiveCell.FormulaR1C1 = ""
Range("e31").Select
ActiveCell.Clear
Range("e32").Select
ActiveCell.Clear
Range("E34:F34").Select
ActiveCell.FormulaR1C1 = ""
Range("E36:F36").Select
ActiveCell.FormulaR1C1 = ""
Range("E38").Select
ActiveCell.Clear
ActiveWorkbook.save
End Sub