SHARE
TWEET

Untitled

a guest Jan 4th, 2013 17 Never
  1. Dim i as integer
  2. For i = X+1 to Y-1
  3.    Sheets(i).Select
  4.     .... your code
  5. Next i
  6.        
  7. Dim i As Integer
  8. Dim wrksheet As Worksheet
  9.  
  10. For i = 1 To Sheets.Count
  11.     Set wkrsheet = ThisWorkbook.Sheets(i)
  12.     'Do work on wrksheet object
  13. Next i
RAW Paste Data
Top