список листов

[Artur KakTus]

Здравствуйте, я такой чайник что сам удивляюсь. Уже все обрыл, надо получить список всех листов рабочей книги. Примерно по такому принципу:

Dim w As Workbook
For Each w In Application.Workbooks
msgbox w.name
next

Как это сделать для листов? Спасибо.

[uhm]

RTFM

Dim w As WorkSheet
For Each w in ActiveWorkbook.Worksheets
msgbox w.name
next

[Artur KakTus]

2UHM , спасибо ..... а я писал sheets. Еще раз спасибо огромное, віручил....