i just tested this,
vb Code:
  1. Private Sub Workbook_Open()
  2. For i = 1 To Sheets.Count
  3. MsgBox Sheets(i).Name
  4. Next
  5. End Sub
worked as expected, so what you want should work, do you get an error or what?