check filter items in pivot table

Hi

In the sample code below, I am using the data from cell C3 ( a drop down list) as a filter value. This works OK if the value in C3 matches an item in the filter list. However if the data in C3 does not match any of the filter items in the pivot field filter list, a VBA error is generated (understandably). How can I check the filter options available in the filter list and then generate an error msgbox if there is no match.

Note I specifically do not want the user to have search each pivot table in my workbook manually.

ActiveSheet.PivotTables("PivotTable4").PivotFields("Inclusion").ClearAllFilters
ActiveSheet.PivotTables("PivotTable4").PivotFields("Inclusion").CurrentPage = Range("C3").Value
ActiveSheet.PivotTables("PivotTable4").PivotCache.Refresh

Thanks

Thanks Humdingaling for responding but I am missing a point somewhere. I have modified my code as follows:

Sub Location1()

(1) ActiveSheet.PivotTables("PivotTable4").PivotFields("Inclusion").ClearAllFilters
(2) ActiveSheet.PivotTables("PivotTable4").PivotCache.Refresh
(3) ActiveSheet.PivotTables("PivotTable4").PivotFields("Inclusion").CurrentPage = Range("C3").Value
(4) On Error GoTo errormsg:
(5) ActiveSheet.PivotTables("PivotTable4").PivotCache.Refresh

(6) errormsg:
(7) MsgBox "error message"
End Sub
.....................
I have numbered the lines for this post
If the content of C3 exists in the pivot table list, then the msgbox is displayed. This (in my mind) should not be happening!
If the content does not exist in the pivot table list then I get the VBA error 1004 message. This is when I expect the msgbox rather than the VBA error code.

I thought the error handling in line (4) would have worked (wrong!)
It now seems to me that maybe I need to somehow check the content of C3 against the pivot table list immediately before line (3)and if C3 does not exist in the pivot table list,then go
to the msgbox before executing lines (3) onwards.

If this assumption is correct, how can I check if C3 content is (or is not)available in the pivot table list? Otherwise help!

Thanks

Thanks again

The 'exit sub' was a bit too obvious, but thanks!

Now my remaining problem. Assume a filter list looks like:

.....(All)
.....L1 Duct
..... Blank

If I now enter 'L3 Duct' into my cell C3, I want to be able to check if 'L3 Duct' against the list in the filter box and if not, generate a MSGBOX.

I am approaching this by trying to refer to the field list but I cannot establish how to lookup the field list that is displayed in the filter box?

Thanks again Humdingaling. Your last post introducing some lateral thinking, which has solved the problem.

Previously I was trying to filter by using the text from my cell C3. If the C3 data did not appear in the filter list, when the macro ran an error was generated.

Now I am AND-ing C3 data with the data in the 'key data' column and placing a TRUE/FALSE result into my 'inclusion' column
(Previously I was placing the content of the 'key data' (e.g. L1 duct, L2 duct, etc) column into the 'inclusion' column when the data matched C3).

Example:
C3 data = L1 duct

key data Inclusion
L1 duct True (C3 data & L1 duct = TRUE)
L2 duct False (C3 data & L2 duct = FALSE)
L1 duct True (C3 data & L1 duct = TRUE)
L3 duct False (C3 data & L3 duct = FALSE)

Now my pivot table macro only ever filters for data associated with the TRUE results.

ActiveSheet.PivotTables("PivotTable4").PivotFields("Inclusion").CurrentPage = True

Thanks again, all sorted!