Excelで隠れたオブジェクトを全て表示

http://efcit.co.jp/cgi-bin1/exqalounge.cgi?print+200804/08040047.txt


For Each s In Activesheet.Shapes:s.Visible = True:Next

とVBエディタのイミディエイトウィンドウ（Shift+Gで表示）に記入し、その行でリターンを押すと即実行。

-----

列をまとめて非表示にしたいのですが、
「オブジェクトがシートからはみだします。その操作はできません。」
というエラーメッセージが出てしまい非表示にできません。

といった場合に使える。