Workbook_SheetChange event not working

[smittymj]

Hi, I'm trying to make this code work. It's supposed to change the values in all specific cells of certain sheets based on changes on a specific cell on any sheet. (e.g. If I change G2 of Sheet "Sensitivity", it should change D2 of certain sheets, and G2 of the rest"

Here's the code:

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)

If Target.Address = "G2" Then
If Sh.Name = "AFS" Or Sh.Name = "IFS" Or Sh.Name = "Sales" Or Sh.Name = "Lease" Or Sh.Name = "Property" Or Sh.Name = "ProjectOuts" Or Sh.Name = "TrustOuts" Or Sh.Name = "Financing" Or Sh.Name = "Investors" Or Sh.Name = "Data" Then
   Application.EnableEvents = False
    Worksheets("Sensitivity").Range("D2:D2") = Target.Value
    Worksheets("Inputs").Range("D2:D2") = Target.Value
    Worksheets("Timing").Range("D2:D2") = Target.Value
    Worksheets("AFS").Range("G2:G2") = Target.Value
    Worksheets("IFS").Range("G2:G2") = Target.Value
    Worksheets("Sales").Range("G2:G2") = Target.Value
    Worksheets("Lease").Range("G2:G2") = Target.Value
    Worksheets("Property").Range("G2:G2") = Target.Value
    Worksheets("ProjectOuts").Range("G2:G2") = Target.Value
    Worksheets("TrustOuts").Range("G2:G2") = Target.Value
    Worksheets("Financing").Range("G2:G2") = Target.Value
    Worksheets("Investors").Range("G2:G2") = Target.Value
    Worksheets("GST").Range("G2:G2") = Target.Value
    Worksheets("Data").Range("G2:G2") = Target.Value
   Application.EnableEvents = True
  End If
 End If

End Sub

Hoping for any help. Thank you!

 

[Fluff]

You've told us what it's meant to do, but not what it is doing?

 

[smittymj]

You've told us what it's meant to do, but not what it is doing?

Sorry, the code doesn't seem to do anything. No error pop up but nothing seems to change anywhere.

 

[Fluff]

Ok, you need to make this change

If Target.Address = "$G$2" Then

 

[smittymj]

Ok, you need to make this change

If Target.Address = "$G$2" Then

Hi, thank you for helping. Though it still doesn't seem to be working. Still no changes/errors messages (It's macro-enabled and my other macros work fine).

 

[Fluff]

Where is the code located?

 

[smittymj]

Where is the code located?

Hi, I placed it in a module (which may be wrong?). Here's a screenshot:

 

[Fluff]

That's the wrong place, it needs to go in the ThisWorkbook module

 

[smittymj]

That's the wrong place, it needs to go in the ThisWorkbook module

Silly me, thank you so much! It finally worked!

 

[Fluff]

You're welcome & thanks for the feedback.