I hope this isn't against the rules but I'm in need of help...I posted this in the Programming forum but didn't get an answer so I'm hoping it's more visible here...the link to the other thread is here - http://www.excelforum.com/excel-prog...drop-down.html

I have the following code which is supposed to select a page value based on what is selected in cell B6 (a validation list). But it's not working...it's just doing nothing. It's working on one Pivot Table that only has one Page Field, but this table has 2 and it's not working...hoping someone can help me out! Thanks!!!

Private Sub WorksheetVP_Change(ByVal Target As Range)
If Target.Address = "$B$6" Then VP_Change2
End Sub
Sub VP_Change2()
' This changes a Page Field to a set value.
ActiveSheet.PivotTables("pivot").PivotFields("VP").CurrentPage _
= Range("B6").Value
Cells.Select
Selection.Interior.ColorIndex = 2
Range("A14").Select

End Sub