All,

This morning, I've come in to find that the worksheet change subs on my
worksheets are not working. I enabled macros when opening the sheets and
everything was working fine last night. When I put a break point on the
first line of the sub shown below, it did not trigger - suggesting that
a change which I did make did not trigger the event.

Help much appreciated.

Will


Sub Worksheet_Change(ByVal Target As Range)
Dim cell As Range
Dim changecolumn As Integer
Dim changerow As Integer
Dim changeworker As String

On Error GoTo errhandler:
Application.ScreenUpdating = False
Application.EnableEvents = False

For Each cell In Target
changecolumn = cell.Column
changerow = cell.Row
changeworker = 0
If changecolumn = 89 Then Exit For
Call change_flag(changerow, 1000, Me, changeworker)
Next

errhandler:
Application.EnableEvents = True
End Sub


---
Message posted from http://www.ExcelForum.com/