Excel VBA、アクティブなシートだけでなく特定のシートを更新する

Question

行に「 - 」がある場合は、アクティブシート内の行を非表示にするスクリプトを作成しました。これを他のシート（Sheet-ABC、Sheet-DEF）にも適用したいと思います。私は配列を使用しようとしましたが、失敗しました。

何か助けていただければ幸いです。

Sub hideRows() 
Application.ScreenUpdating = False 
Application.EnableEvents = False 
Application.Calculation = xlCalculationManual 
Application.DisplayAlerts = False 


Dim cell, cell2 As Range, hRws As Range 
Set Rng = Sheet15.Range("A52:L359") 

Rng.EntireRow.Hidden = False 

For Each cell In Range("A52:L359").SpecialCells(xlBlanks) 
If cell = "-" And cell.Offset(-1, 0) = "-" Then 
If hRws Is Nothing Then 
Set hRws = Range(cell, cell.Offset(1, 0)) 

Else 
Set hRws = Union(hRws, Range(cell, cell.Offset(1, 0))) 
End If 
End If 
Next 

If Not hRws Is Nothing Then hRws.EntireRow.Hidden = True 

Application.Calculation = xlCalculationAutomatic 
Application.DisplayAlerts = True 
Application.ScreenUpdating = True 
Application.EnableEvents = True 

End Sub 

Answer 1

forループ内でhideRows（）メソッドを呼び出すことができます。このような何か：

Dim ws As Worksheet For Each ws In ActiveWorkbook.Worksheets hideRows() Next