How to change Pivot table with Combobox selection

Hi all,

I am trying to find a way to change a page field on a pivot table with the selection made in a combo box. I am trying to change the "P.5256" to whatever the user selects in the combo box.

Any Ideas on how to do this?

 
Sheets("Selected Points Charts").Select
    ActiveSheet.ChartObjects("Chart 1").Activate
    ActiveChart.PivotLayout.PivotTable.PivotFields("Point ID").CurrentPage = _
        "P.5256"
    ActiveChart.SeriesCollection(1).Select
    ActiveChart.SeriesCollection(1).Trendlines.Add(Type:=xlLinear, Forward:=0, _
        Backward:=0, DisplayEquation:=False, DisplayRSquared:=False).Select
    Windows("Points Statistics 2.xls").SmallScroll Down:=21
    ActiveWindow.Visible = False
    Windows("Points Statistics 2.xls").Activate
    ActiveSheet.ChartObjects("Chart 2").Activate
    ActiveChart.PivotLayout.PivotTable.PivotFields("Point ID").CurrentPage = _
        "P.5256"

Below assumes that you have a ComboBox named "ComboBox1" on a Sheet with CODENAME "Sheet1". (Note: the CodeName of a worksheet is the name on the left in the VB Editor Project Explorer view ... the name in parenthesis is the Name, which is what shows on the Tab in Excel view).

Dim ch As Chart, pt As PivotTable
Dim pf As PivotField
Dim cb As ComboBox

    Set ch = ActiveSheet.ChartObjects("Chart 2").Chart
    Set pt = ch.PivotLayout.PivotTable
    Set pf = pt.PivotFields("Point ID")
    Set cb = Sheet1.ComboBox1

    pf.CurrentPage = cb.Value