Try looping through the array a sheet at a time

For Each sh In Sheets(Array("26", "27", "28", "29", "30", "31", "WTD 1",
"WTD 2",
"WTD 3", "WTD 4", _
"WTD 5", "MTD"))
' do your thiung
Next sh

--

HTH

Bob Phillips
... looking out across Poole Harbour to the Purbecks
(remove nothere from the email address if mailing direct)

"djackson " wrote in message
...
the highlighted section of the code is listed below.


Sheets(Array("26", "27", "28", "29", "30", "31", "WTD 1", "WTD 2",
"WTD 3", "WTD 4", _
"WTD 5", "MTD")).Select Replace:=False


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