отбор данных в сводной таблице

[artemuss]

добрый день!

стоит задача отобрать данные в сводной таблице с помощью формы, написанной в vba.

Вот так выглядит код:

Private Sub FilterCommandButton1_Click()

Sheets("Sheet2").Select

ActiveSheet.PivotTables("СводнаяТаб лица3").PivotFields("Код").CurrentP age = FilterTextBox1

Sheets("Sheet1").Select
End Sub

Private Sub FilterTextBox1_Change()

End Sub

Однако данный макрос не работает. выдается ошибка 1004 "Application-defined or object-defined error"

Подскажите пожалуйста, что я делаю не так! Сломал голову. Заранее спасибо!