Thank you, Roger...so this would run in a module or
on the FSChart1 sheet? The A1 cell is in the FSChart1 sheet
so would the lines:

.CurrentPage = newvalue
Exit For
Else
.CurrentPage = "(All)"


Still work as FSChart1 is not the current page....?