Error Handler

[ManUBlueJay]

Hi Why does the following Code break on the Error Handler with the message "Sub or Function not defined"

Private Sub Worksheet_Change(ByVal Target As Range)

On Error GoTo ErrorHandler
Application.EnableEvents = False
If Not Intersect(Target, Range("CLearAllInput")) Is Nothing Then
If Evaluate("UpdateButtonCaption") = "No Data" Then
HideUpdateButton
Application.EnableEvents = True
Else
ShowUpdateButton
Application.EnableEvents = True
End If
End If
Exit Sub

ErrorHandler
Application.EnableEvents = True

End Sub

 

[RoryA]

You're missing a colon on the end of the ErrorHandler label at the bottom.

 

[ManUBlueJay]

Duh!!!
Sorry for wasting your time but thanks a lot for the help

 

[RoryA]

No worries - sometimes it just needs another set of eyes.