? Range("O8")
"CAT0", "00", "01", "06", "07", "08", "09"
prange = Evaluate("{" & Range("O8").Value & "}")
? prange(1)
CAT0
? prange(7)
09
Worksheets(prange).Select
? activewindow.SelectedSheets.Count
7

works fine for me. Demod from the immediate window.

Regards,
Tom Ogilvy


Gary Burke wrote in message
...

Thanks for the input, but alas, now get an error

Run-time error 13 - Type mismatch on

prange = evaluate("={" & Range("O8").Value & "}")

I have not used the evaluate function before - sorry !!


*** Sent via Developersdex http://www.developersdex.com ***
Don't just participate in USENET...get rewarded for it!