Scenario Drop Down Issue

[ExcelNoob9]

I am trying to make a drop down that will change the scenario manager to show 3 different cases.
The VBA code works when I run it manually, but it won't run when I change the drop down choice.
What am I doing wrong?

Here is the code:

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$G$3" Then
Private Sub ChangeScenario()
If Range("G3") = 1 Then
ActiveSheet.Scenarios("Base Case").Show
ElseIf Range("G3") = 2 Then
ActiveSheet.Scenarios("Median Case").Show
ElseIf Range("G3") = 3 Then
ActiveSheet.Scenarios("Reach Case").Show
End If
End Sub
End If
End Sub

Thanks!!

[alansidman]

Rule 03: Code Tags
Your post does not comply with Rule 3 of our Forum RULES. Use code tags around code.

Posting code between tags makes your code much easier to read and copy for testing, it also maintains VBA formatting.

Highlight your code and click the # icon at the top of your post window. More information about these and other tags can be found here



(I have added them for you today. Please read all Forum Rules and comply in the future.)