Thanks
Im getting out of range on Sheets(shArr).Select :-

----- Dick Kusleika wrote: ----

Caro

Try thi

Sub GroupSheets(

Dim sh As Objec
Dim shArr() As Strin
Dim FirstSheet As Objec
Dim LastSheet As Objec

Set FirstSheet = Sheets("Sheet2"
Set LastSheet = Sheets("Sheet3"

ReDim shArr(FirstSheet.Index To LastSheet.Index

For Each sh In ThisWorkbook.Sheet
If sh.Index = FirstSheet.Index And sh.Index <= LastSheet.Index The
shArr(sh.Index) = sh.Nam
End I
Next s

Sheets(shArr).Selec

End Su

--
Dick Kusleik
MVP - Exce
Excel Blog - Daily Dose of Exce
www.dicks-blog.co

"Carol" wrote in messag
..
Hell
What code would I use to select all sheets between sheet x and sheet y
Thanks