Display Scenarios Using a drop-down list

Hi, I'm trying to replicate the VBA code for displaying scenarios using a drop-down list that I found on this website: http://www.tvmcalcs.com/blog/comment...rop_down_list/

However, I've not quite been able to get it to work on my worksheet. This is my code:

Sub ChangeScenario()
' Changes the scenario on the worksheet according to the choice made
' in the drop-down list.
Scenarios(Range(ActiveSheet.Shapes("DropDown").ControlFormat._
LinkedCell).Value).Show
End Sub

What happens is that the scenario in cell G9 changes, but the changing cells (D23:F24,D26:F27,D29:F33) in my three scenarios do not. Any ideas? I'm just getting into the writing VBA and macros and am stumped at this point.

I've attached my worksheet.

Cheers and thanks in advance for the help!

Tim