Guest User

Untitled

a guest
Jan 4th, 2013
25
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.24 KB | None | 0 0
  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
Add Comment
Please, Sign In to add comment