HI , i'm new to VBA programming. Can someone help to advice how can i write a VBA script to call out a slicer based on cell value assigned?

Example:
When i select "country" at cell Range("A1") from the drop down list which i have created, the VBA script will activate my pivot table on the same sheet and call out slicer with "country" field as theslicer header.

Range("A1") content may change to other fields such as "state" or others when i reselect again from the drop downlist of cell at Range("A1"). The idea is, each time a new value in cell range("A1") is selected, the VBA will call out the slicer based on Range("A1") cell value.


below are the script which i have tried but it was not successful.

Dim pt As PivotTable
Dim iCol As String
Dim oSc As SlicerCache
Dim oSi As SlicerItem
Dim k As slicer

Set pt = ActiveSheet.PivotTables(1)
With pt
iCol = Range("A1").Value
With .PivotFields(iCol)
k.SlicerCache.SlicerItems("iCol").Selected = True

End With
End With


Can anyone help on this? Appreciate much your inputs.

thanks!