WorkSheet_Change and/or WorkSheet_SelectionChange Not being Fired

[Ronaldj]

I have put the following code in Sheet1 (right click code) or This Workbook Code or Modules - Module 1 and in none of these cases did it run in response to selection or value changes entered on the workbook spread sheet. I checked (Immediate window) that Application.EnableEvents is true. I closed the Excel, rebooted and still it doesn't work. Using EXCEL365 on Windows 11 Have spent many hours going round and round this. Any insights will be appreciated.
Option Explicit
Sub WorkSheett_Change(ByVal Terget As Range)
Application.EnableEvents = False
If Target.Address = "D1" Then
MsgBox ("GotIt")
Else
MsgBox ("Not It")
End If
Application.EnableEvents = True
End Sub

 

[Joe4]

Welcome to the Board!

You have multiple typos in your first line:

Sub WorkSheett_Change(ByVal Terget As Range)

should be:

Sub WorkSheet_Change(ByVal Target As Range)

And all "Worksheet_Change" event procedure code needs to go in the Sheet module of the particular sheet you want it to run against.

 

[Alex Blakenburg]

Joe's comments have addressed why it is not firing. Another issue is that address will return $D$1 not D1 so your if statement will return false.

Sub WorkSheet_Change(ByVal Target As Range)
    Application.EnableEvents = False
    If Target.Address = "$D$1" Then
        MsgBox ("GotIt")
    Else
        MsgBox ("Not It")
    End If
    Application.EnableEvents = True
End Sub

 

[Joe4]

Joe's comments have addressed why it is not firing. Another issue is that address will return $D$1 not D1 so your if statement will return false.

Sub WorkSheet_Change(ByVal Target As Range)
    Application.EnableEvents = False
    If Target.Address = "$D$1" Then
        MsgBox ("GotIt")
    Else
        MsgBox ("Not It")
    End If
    Application.EnableEvents = True
End Sub

Nice catch, Alex!

 

[Ronaldj]

Joe's comments have addressed why it is not firing. Another issue is that address will return $D$1 not D1 so your if statement will return false.

Sub WorkSheet_Change(ByVal Target As Range)
    Application.EnableEvents = False
    If Target.Address = "$D$1" Then
        MsgBox ("GotIt")
    Else
        MsgBox ("Not It")
    End If
    Application.EnableEvents = True
End Sub

Many (Humble) thanks. Apologies for the nuisance due to my Old (84) bad eyes. Guess I need a larger Monitor !
So, in my application I auto generate multiple Sheets with their common code in Modules and each Sheet with its own data.
I will need to find a way to populate the replicated Sheet's code with this same WorkSheetChange code. Hmmm ? !

 

[Joe4]

If you put your code in the "Workbook_SheetChange" event in the "ThisWorkbook" module (as opposed to the underlying sheet modules), it will apply to ALL sheets of your workbook, no matter how many there are or when you add them, i.e.

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
    Application.EnableEvents = False
    If Target.Address = "$D$1" Then
        MsgBox ("GotIt")
    Else
        MsgBox ("Not It")
    End If
    Application.EnableEvents = True
End Sub

 

[Ronaldj]

Many (Humble) thanks. Apologies for the nuisance due to my Old (84) bad eyes. Guess I need a larger Monitor !
So, in my application I auto generate multiple Sheets with their common code in Modules and each Sheet with its own data.
I will need to find a way to populate the replicated Sheet's code with this same WorkSheetChange code. Hmmm ? !

If you put your code in the "Workbook_SheetChange" event in the "ThisWorkbook" module (as opposed to the underlying sheet modules), it will apply to ALL sheets of your workbook, no matter how many there are or when you add them, i.e.

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
    Application.EnableEvents = False
    If Target.Address = "$D$1" Then
        MsgBox ("GotIt")
    Else
        MsgBox ("Not It")
    End If
    Application.EnableEvents = True
End Sub

Great, thanks. I imagine I can use sh.Name to avoid Sheets I don't want it to touch.

 

[Joe4]

Great, thanks. I imagine I can use sh.Name to avoid Sheets I don't want it to touch.

That is correct!