When I use private sub code below all works fine unless I add a field
not in the pivot then this code doesnt work how can i make sure that
if i choose a field
which is not in the pivot the vb will not input it ??

Cheers

If Target.Count 1 Then Exit Sub
If IsEmpty(Target.Value) Then Exit Sub
If Target.Address = "$B$1" Then Worksheets("Pivot").PivotTables( _
"PivotTable1").PivotFields( _
"Month").CurrentPage = Target.Value

If you meant that the problem occurs if you choose an Item that's not in
the pivot field, there's sample code here that will check for each item
before changing the page field:

http://www.contextures.com/xlPivot09.html

Under the heading 'Check for Pivot Items Before Printing'

You could use something similar in your code.


wrote:
When I use private sub code below all works fine unless I add a field
not in the pivot then this code doesnt work how can i make sure that
if i choose a field
which is not in the pivot the vb will not input it ??

Cheers

If Target.Count 1 Then Exit Sub
If IsEmpty(Target.Value) Then Exit Sub
If Target.Address = "$B$1" Then Worksheets("Pivot").PivotTables( _
"PivotTable1").PivotFields( _
"Month").CurrentPage = Target.Value


--
Debra Dalgleish
Contextures
www.contextures.com/tiptech.html
Blog: http://blog.contextures.com