Select all worksheets then omitting first and last

[memphiskane]

Hi All,

Sorry to bother everybody here with something so trivial but I am trying to add in to an existing macro the ability to select all of the pages in the workbook except the first and the last. I have done all of the google searches I could think of and came back with nothing. Not sure if it matters but I am using Excel 2007.

Thx,
Jim

 

[meldoc]

Hello and welcome to MrExcel

Try.

<font face=Courier New><SPAN style="color:#00007F">Option</SPAN> <SPAN style="color:#00007F">Explicit</SPAN><br><SPAN style="color:#00007F">Sub</SPAN> Macro1()<br><SPAN style="color:#00007F">Dim</SPAN> c <SPAN style="color:#00007F">As</SPAN> <SPAN style="color:#00007F">Long</SPAN><br><SPAN style="color:#00007F">Dim</SPAN> sray()<br><SPAN style="color:#00007F">Dim</SPAN> sh <SPAN style="color:#00007F">As</SPAN> Worksheet<br><br>    <SPAN style="color:#00007F">For</SPAN> <SPAN style="color:#00007F">Each</SPAN> sh <SPAN style="color:#00007F">In</SPAN> ThisWorkbook.Worksheets<br>      <SPAN style="color:#00007F">If</SPAN> sh.Index <> 1 And sh.Index <> Sheets.Count <SPAN style="color:#00007F">Then</SPAN><br>      <SPAN style="color:#00007F">ReDim</SPAN> <SPAN style="color:#00007F">Preserve</SPAN> sray(c)<br>        sray(c) = sh.Index<br>        c = c + 1<br>      <SPAN style="color:#00007F">End</SPAN> <SPAN style="color:#00007F">If</SPAN><br>    <SPAN style="color:#00007F">Next</SPAN> sh<br>    Sheets(sray).Select<br>   <br><SPAN style="color:#00007F">End</SPAN> <SPAN style="color:#00007F">Sub</SPAN></FONT>