MrExcel Publishing
Your One Stop for Excel Tips & Solutions

SheetChange event


Posted by JohnG on January 30, 2002 12:11 PM

Have you any ideas as to why the sheet change event is not working? I have a before close and before save events and they are fine, it just completely ignores this one. Below is an extract of the code I am using.

--In AppEventClass
Public WithEvents Appl As Application

Private Sub Appl_Workbook_SheetChange(ByVal Sh As
Object, ByVal Source As Range)

Dim ApplicationClass As New AppEventClass ' Creates variable to be used to activate events.

--In Thisworkbook
Private Sub Workbook_Open()
Set ApplicationClass.Appl = Application 'Actives all events created in AppEventClass.
End Sub


Posted by Gary Bailey on January 30, 2002 1:07 PM

Shouldn't it be

Private Sub Appl_SheetChange(ByVal Sh As Object, ByVal Target As Excel.Range)

Gary

Posted by Juan Pablo G. on January 30, 2002 1:08 PM

It works perfectly for me. [NT]

It works perfectly for me.