Macro to update Pivot Tables using Combo Box

I'm trying to set up a macro that will update 2 pivot tables at the same time using a combo box. I a list of all the vendor names on one side and at the top have cell link giving # location for what is selected in the combo box. Next to the # I have an index formula taking the number and returning me with the vendor name selected. I tried this from some video but it does not seem to work. Cell H1 is the index formula returning the vendor name selected and B1 is where the combo box is. Also I'm wondering if if I can move the combo box off of this page and to another so the pivot tab can be hidden.

'

'
    With ActiveSheet.PivotTables("PivotTable10").PivotFields("Vendor")
        .CurrentPage = Range("H1").Text
    End With
    With ActiveSheet.PivotTables("PivotTable12").PivotFields("Vendor")
        .CurrentPage = Range("H1").Text
    End With
    Range("B1").Select
End Sub