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

エクセルで指定した範囲内（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 回答日時： 2007/07/13 10:37

ご提示のマクロは、こちらでは問題なく動作いたしました。

原因があるとすれば他のところではないでしょうか。

この回答へのお礼

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

お礼日時：2007/07/13 11:16