指定した範囲内が空白なら行削除するマクロ

質問

エクセルで指定した範囲内（A列からC列まで）で何も文字が入っていなければ（空白）、行を削除する、というマクロを教えてください。
いくつか調べて、以下を試しましたが、何も動作しませんでした。
どなたかアドバイスをいただければ助かります。
よろしくお願いします。
Sub DeleteBlankRows2()
Application.ScreenUpdating = False
On Error Resume Next
With Columns("A:C")
.SpecialCells(xlCellTypeConstants).EntireRow.Hidden = True
.SpecialCells(xlCellTypeFormulas).EntireRow.Hidden = True
.SpecialCells(xlCellTypeComments).EntireRow.Hidden = True

.SpecialCells(xlCellTypeVisible).EntireRow.Delete
.EntireRow.Hidden = False
End With
Application.ScreenUpdating = True
End Sub

回答No.1

cafe_au_lait

ご提示のマクロは、こちらでは問題なく動作いたしました。
原因があるとすれば他のところではないでしょうか。

お礼

ご回答ありがとうございます。
確かに、他に問題がありました。このマクロを特定のシートのみで動作させるようにしてしまっていました。（Sheet1でのみ動く）