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"