Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error Resume Next
If Not Intersect(Range("client_selector"), Target) Is Nothing And Target.Count = 1 Then
' ***
ActiveSheet.PivotTables("PivotTable2").PivotFields("unique").CurrentPage = Range("client_selector").Value
' ***
Else
'***
Me.ComboBox1.Visible = False
'***
End If
End Sub