In VBA è così:
codice:
Dim Foglio
For Each Foglio In Application.Sheets
   MsgBox Foglio.Name
Next
In VB6 non l'ho mai fatto ma credo sia simile, devi solo capire cosa scrivere al posto di Application.Sheets