Здравствуйте. Помогите пожалуйста, не могу разобраться как применить макрос ко всем листам книги, кроме первого.
Sub Скрыть()
Dim ws As Worksheet
Dim i As Long
Application.ScreenUpdating = False
For Each ws In ThisWorkbook.Worksheets
If ws.Name <> "СВОД" Then (это первый лист к которому не надо применять макрос)
For i = 15 To 200 (это строки начиная с 15 скрывать строчки с 0 )
If (Cells(i, "G").Value = "") Or (Cells(i, "G").Value = 0) Then
Rows(i).Hidden = True
Else
Rows(i).Hidden = False
End If
Next i
End If
Next ws
Application.ScreenUpdating = True
End Sub