Dim i as integer
For i = X+1 to Y-1
Sheets(i).Select
.... your code
Next i
Dim i As Integer
Dim wrksheet As Worksheet
For i = 1 To Sheets.Count
Set wkrsheet = ThisWorkbook.Sheets(i)
'Do work on wrksheet object
Next i