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:
Hoping for any help. Thank you!
Here's the code:
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!