Variant確認の上、書換えておいた方が無難です。型を使うのが正常です。本来は取得するプロパティに合わせるものです。Long後になってからエラー原因になりそうな不備は直しておきましょう。これは今回のトラブルとは無関係です。)///以上は、比較的基本的で、環境や動作条件に左右されないレベルの手当てです。確認して、それでも解決できない場合、は以下。F8などでマクロを直接実行するのでしょうか?もしそうなら、このセクションは読み飛ばして結構です。シートにあるボタンやシェイプから実行させている場合はその点、具体的で詳細な情報が必要です。他のマクロから呼び出している場合も同様です。vbModelessに換えてから実行するとどうなるか、知らせてください。シートの保護を適用しているかどうか知らせてください。///以上、とりあえず、気が付いた点だけレスしておきます。確認してみてください。