hi
what error message are you getting??
is the sub in the workbook module???
also the sub should be titled......
Private Sub Worbook_Open()

regards
FSt1


"MD" wrote:

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