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