I have the following macro it should run when the workbook is opened. I keep
getting an error message.
Any ideas. Isthere something that is missing

Option Explicit

Sub Update()
With Sheet5
ActiveSheet.Unprotect
Application.EnableEvents = False

If UserForm4.CheckBox60.Value = True Then
Sheet5.ComboBox3.Visible = True
Sheet5.Label5.Visible = True
Sheet5.TextBox29.Visible = True
Sheet6.ComboBox3.Visible = True
Else
UserForm4.CheckBox60.Value = False
Sheet5.ComboBox3.Visible = False
Sheet5.Label5.Visible = False
Sheet5.TextBox29.Visible = False
Sheet6.ComboBox3.Visible = False
End If
Range("B3").Value = "=TODAY()"
Sheet5.TextBox20.Value = Sheet5.Range("b3").Value
Application.EnableEvents = True
ActiveSheet.Protect
End With
End Sub