値が含まれていないブック内の各ワークシートの最初の5行を削除します

Question

すべての列に値が含まれていない場合、各ワークシートの最初の5行をすべて削除しようとしています。このプログラムは実行されますが、アクティブなワークシート上でのみ実行されます。私が逃したものはありますか？

Sub DeleteFirst5Rows() 
Dim ws As Worksheet 
For Each ws In ActiveWorkbook.Worksheets 
    On Error Resume Next 
    Rows("1:5").SpecialCells(xlCellTypeBlanks).EntireRow.Delete 
Next ws 
End Sub 

Answer 1

これは完全に機能する更新されたコードです。皆さん、ありがとうございました。

Sub DeleteFirst5Rows() 
    Dim ws As Worksheet 
    For Each ws In ActiveWorkbook.Worksheets 
    If Application.CountA(ws.Range("1:5")) = 0 Then ws.Range("1:5").EntireRow.Delete 

    Next ws 
End Sub