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