>>52
ありがとう。やってみた。
・・・

 実行時エラー '1004':
 'Range' メソッドは失敗しました: '_Global' オブジェクト

だって。