Quote:
Originally Posted by Catalin.B
Why don't you give all the details from the begining?
All you need to do is to insert a validation line:
Code:
Tablenum = Application.InputBox("Enter Old Style Division Number, a number from 1 to 9:", Title:="Numbers", Default:=1, Type:=1)
If Tablenum < 1 Or Tablenum > 9 then
MsgBox "Not valid!"
Exit Sub
End if
ActiveSheet.PivotTables("PivotTable6").PivotFields ("DIV").CurrentPage = Tablenum
|
Ok the validation line is helpful. I will just add a dummy 6 into the table so it will always return a result for 1-9. Ill let you know how it works.