Pivot Table selection based on Drop Down

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

Hi,
I do understand your concern, but the programming forum still is the best one to post.
Bump your post regularly. I hope you'll get an answer ASAP. I'm closing his thread to keep things focused on the programming section.