Hi All!

I have encountered what I think is a quite a strange problem. I'd really appreciate any help in this matter .

I have a sheet containing raw data on which I've made a simple pivottable (in the code called "MyPivot"). Instead of the user having to choose fields from the pivot I'd like the user to choose from a combobox which is located on the sheet "UserSheet". The indata for the combobox is located in the Column A of the "UserSheet". When the user selects a value in the combobox that chose will then also be made in the pivottable.

I thought this would be "a piece of cake" but I've encoutered a specific, quite strange problem.

The problem is that if the value in the combobox does not exist in the pivotfields
the pivottable doesn't respond by saying "The item doesn't exist" it accctually renames the item!

For example if the combobox on the UserSheet consists of the following values:
"Magazines", "Candy", "Softdrinks", "Fruit" but the pivot (based on the raw data) only contains "Magazines", "Candy", "Softdrinks". If I then choose "Fruit" in the combobox the pivot does not respond by saying "The item doesn't exist" it renames some item in the pivottable to "Fruit".

I found this very very strange. So my question is.....
Is there a way to stop this renaming in the pivot table when selecting a value from the combobox which doesn't exist in the pivot?
I do not want any renaming going on in the pivot! I just want the pivot to give a warning or say "The item doesn't exist"

Thanks for listning!
Have a great day!
/Erik

Here is the code I used.

Sub Userselection()
Dim MySelection As String
Dim SelectionOffset As Integer

Application.ScreenUpdating = False

Worksheets("UserSheet").Select
Range("A1").Select
Selection.End(xlDown).Select
PivotSelector = ActiveCell.Row

SelectionOffset = Sheets("UserSheet").Range("A" & PivotSelector).Value
MySelection = Sheets("UserSheet").Range("A" & PivotSelector).Offset(SelectionOffset, 0).Value


Sheets("Pivot").Select
ActiveSheet.PivotTables("MyPivot").PivotFields("Item").CurrentPage = Trim(MySelection)

Sheets("UserSheet").Select

Application.ScreenUpdating = True
End Sub