エクセル2003のマクロでコマンドボタンでの貼り付けが出来ない。

はじめまして、マクロ記載などコードを書くのは初めての初心者です。今回エクセル2003のマクロで、ワークシートから数値データーを他のワークシトに貼り付けようとコマンドボタンを作成して実行してるのですが、「実行時エラー1004、rangeクラスのserectメソッドが失敗しました」とのエラーが帰ってきます。

しかしマクロダイアログにコードを貼り付けて操作すると成功してしまいます。
コマンドボタンが使用出来ないのでしょうか？
教えて頂けないでしょうか、何方かよろしくお願いいたします。

///////////////////////////////////////////
Private Sub CommandButton2_Click()
Range("B5:AX14").Select
Range("B5:AX5").Select
Selection.Copy
Sheets("報告FORMAT").Select
Range("A72").Select　←ここで止まってしまってる様です。
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=True, Transpose:=False
Range("A68").Select
Sheets("管理format").Select
Range("A1").Select
Application.CutCopyMode = False
ActiveCell.FormulaR1C1 = ""
Range("A2").Select
End Sub
//////////////////////////////////////////////////

No.2 回答者： mitarashi 回答日時： 2008/08/31 23:44

Sheet2に記述した、下記コードは実行時エラーになりますが

Private Sub CommandButton1_Click()
Sheets("Sheet1").Select
Range("a1").Select
End Sub
下記コードは動作しました。Rangeの対象シートを明示してやれば良いのではないでしょうか。
Private Sub CommandButton1_Click()
Sheets("Sheet1").Select
ActiveSheet.Range("a1").Select
End Sub
そこから先は確認してありませんが、ご参考まで。

この回答への補足

ありがとうございました。
無事に動作確認ができました。

補足日時：2008/09/01 00:03

この回答へのお礼

ありがとうございました。

お礼日時：2008/09/01 00:05

No.1 回答者： hana-hana3 回答日時： 2008/08/31 20:50

シートモジュールのコードから他のシートに移動する事はできません。

コードを標準モジュールに置いて実行してください。

この回答への補足

ありがとうございます。
しかし、あまりの初心者で、どうにも動いてくれません。
コードを標準モジュールに置く手順をご面倒ですがおしえて頂けないでしょうか！

補足日時：2008/08/31 22:22

この回答へのお礼

ありがとうございます。

お礼日時：2008/09/06 21:40