Помогите решить макрос на всех листах Книги - VB

Формулировка задачи:

Здравствуйте, нужен макрос для печати страниц книги. Задача такая, в книге 100 листов , на каждом по 5 страниц. На каждой странице есть ячейка, значение которой нужно проверить, и если она не равна "0", то печатать страницу. На каждом листе набор ячеек для проверки один и тот же (J22; X22; Al22; AZ22; BN22) Нужно печатать первый лист, и все страницы на всех последующих Листах со значением не равным "0". Сам Макрос для одного листа у меня выглядит так:

Sub макрос()
    If ActiveSheet.Range("J22") <> "0" Then _
        ActiveWindow.SelectedSheets.PrintOut From:=1, To:=1, Copies:=1, Collate:=True
    If ActiveSheet.Range("X22") <> "0" Then _
        ActiveWindow.SelectedSheets.PrintOut From:=2, To:=2, Copies:=1, Collate:=True
    If ActiveSheet.Range("AL22") <> "0" Then _
        ActiveWindow.SelectedSheets.PrintOut From:=3, To:=3, Copies:=1, Collate:=True
    If ActiveSheet.Range("AZ22") <> "0" Then _
        ActiveWindow.SelectedSheets.PrintOut From:=4, To:=4, Copies:=1, Collate:=True
    If ActiveSheet.Range("BN22") <> "0" Then _
        ActiveWindow.SelectedSheets.PrintOut From:=5, To:=5, Copies:=1, Collate:=True
End Sub

Решение задачи: «Помогите решить макрос на всех листах Книги»

textual
                            Листинг программы 
                        
                            Sub MacroCaller()

Dim sh As Worksheet 
For Each sh In Worksheets
  Macros1 sh 
Next sh 

End Sub