Листы в Exel

[fizik_leha]

Имеется книга с очень большим количеством листов.
Нужно из макроса по очереди открыть все листы начиная с 3 до конца
(кол-во листов может менятся)
Как это сделать

[san*]

Типа так

Sub fff()
Dim w As Worksheet
Dim i As Integer
For i = 3 To Worksheets.Count
Set w = Worksheets(i)
w.Activate
MsgBox i & "Лист"
Next
End Sub