use dropdown or combobox to change Pivot table selection

[JPM]

I am trying to change the fields in a pivot table based upon a selection from a dropdown or combobox. I recorded the following macro as a start, but don't know how to adjust it to make it dynamic with the selection from the box:

Sub OrderType()

Sheets("Pivot").Select
ActiveWorkbook.ShowPivotTableFieldList = True
ActiveSheet.PivotTables("PivotTable5").PivotFields("Channel").Orientation = xlHidden
With ActiveSheet.PivotTables("PivotTable5").PivotFields("Order Type")
.Orientation = xlColumnField
.Position = 1
End With
End Sub

The "Channel" was the old field that needs to be replaced with the new selection (in this case "Order Type").
Any ideas?

 

[JPM]

Nevermind, I found my own solution by using a dropdown list with the following code. Probably not the sleekest way, but it works:

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Target.Worksheet.Range("$D$53")) Is Nothing Then

Dim ListSelection As String
ListSelection = Worksheets("Dashboard").Range("D53").Value

On Error Resume Next
Sheets("Pivot").Activate
ActiveWorkbook.ShowPivotTableFieldList = True
ActiveSheet.PivotTables("PivotTable5").PivotFields("Brand").Orientation = xlHidden
ActiveSheet.PivotTables("PivotTable5").PivotFields("Channel").Orientation = xlHidden
ActiveSheet.PivotTables("PivotTable5").PivotFields("Channel Group").Orientation = xlHidden
ActiveSheet.PivotTables("PivotTable5").PivotFields("Order Type").Orientation = xlHidden
ActiveSheet.PivotTables("PivotTable5").PivotFields("Ship Group").Orientation = xlHidden
ActiveSheet.PivotTables("PivotTable5").PivotFields("Ship Method").Orientation = xlHidden

With ActiveSheet.PivotTables("PivotTable5").PivotFields(ListSelection)
.Orientation = xlColumnField
.Position = 1
End With
Sheets("Dashboard").Select
Range("D53").Select
End If
End Sub