Sure

change
For Each W In Worksheets

to
for each W in Worksheets(Array("sheet1","Sheet3", _
"Sheet5","sheet7"))

or

for each W in Worksheets(Array(1,3,5,7))

--
Regards,
Tom Ogilvy


HamishM wrote in message
...
I've now tried it on several other workbooks and it seems to be working.
No idea what was wrong with the other but am happy now!

Just another thought - if i only wanted select sheets to be split out,
can i create a list in the code? (or select sheets and then run the
macro?)


---
Message posted from http://www.ExcelForum.com/