excel2007でエラーになるマクロ
Excel2003では問題なく動いていた以下のマクロですが、これはボタンにマクロを貼り付けてあり、それを2007で実行すると、「問題が発生したため、Microsoft Office Excelを終了します」となり、強制終了になってしまいます。
でも、VBEの方で実行すると、ワークシートはちゃんと保存されて正しく閉じます。
（その場合、VBE自体は終了にならず、起動したままです）
また、マクロを表示させてマクロ名を選択し、実行をクリックすると、正常に動作します。
新しく別の図形を作成し、そこにマクロを貼り付けるとやはり強制終了になります。
Excel2007で、リソースの診断などしても問題は見つかりません。
Windowsは、ＳＰ２でだめだったので、ＳＰ３にしてみましたが、現象は同じで何ら変化はありませんでした。
エラーを出さなくするにはどうすればよいのでしょうか。
--------マクロ---------
Sub ファイル名を変えて保存して閉じる()
Dim nnen As String
Dim kcode As String
Dim kcode2 As String
Dim cname As String
Dim dno As String
Dim dno2 As String
Dim myPath As String
nnen = ActiveWorkbook.Worksheets("inputform").Range("O5")
kcode = ActiveWorkbook.Worksheets("inputform").Range("R3")
kcode2 = Format(kcode, "000")
cname = ActiveWorkbook.Worksheets("inputform").Range("C7")
dno = ActiveWorkbook.Worksheets("inputform").Range("H26")
dno2 = Format(dno, "00000")
myPath = ThisWorkbook.Path & "\"
On Error Resume Next 'エラーが発生しても処理を続行する
ActiveWorkbook.SaveAs Filename:=myPath & "様式5_" & nnen & kcode2 & "【" & cname & dno2 & "】" _
, CreateBackup:=False
On Error GoTo 0 'エラー処理ルーチンを無効にする
ActiveWorkbook.Close
End Sub
