Worksheet_Change Does Not Run

[ramohse]

Hello


I am writing a macro to find-replace certain values in formulas on a dashboard based on the value in a drop-down menu. This is built from similar code I have used before. However when I change the drop-down value, try to run the macro from the VBE window, or try to debug nothing happens. When I press F5 in the VBE window the macro list dialog window pops up and no macros are visible. Here is the code:

Option Explicit
Private Sub Worksheet_Change1(ByVal Target As Excel.Range)
Dim rng As Range
Dim Ws As Worksheet
Dim OldTab As String
Dim NewTab As String
 
Set rng = ThisWorkbook.Worksheets("Dashboard").Range("BusinessUnit")
If Target.Count > 1 Then Exit Sub
If Intersect(Target, rng) Is Nothing Then Exit Sub
 
OldTab = ThisWorkbook.Worksheets("Key").Range("selOldTab").Value
NewTab = ThisWorkbook.Worksheets("Key").Range("selNewTab").Value
 
ThisWorkbook.Worksheets("Dashboard").Range("B9:H35").Replace OldTab, NewTab
 
    ThisWorkbook.Worksheets("Key").Range("selNewTab").Copy
    ThisWorkbook.Worksheets("Key").Range("selOldTab").PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False

End Sub

Application events are on, so it is not that. Any help or advice would be greatly appreciated. Thank you.

 

[pleeseemailme]

You can create a break in the code right at the beginning (after declaring your variables) and then step through it from there.

 

[ramohse]

Thank you for the quick response.

I created a break point at "Set rng = ThisWorkbook.Worksheets("Dashboard").Range("BusinessUnit")" but when I try to either step through or run it still won't do anything except "ping" at me and/or open the macro dialog window...

 

[Norie]

It's Worksheet_Change not Worksheet_Change1.

 

[pleeseemailme]

Now trigger the event. It will stop at the break and then you can step through it.

 

[ramohse]

HA wow. Thank you both very much. How I missed that, I have no idea. egad...