新しいBookの作成マクロ
現在使用しているBOOKの一部をクリアして、同じフォルダ内にBOOKの名前だけ変えて年度が変わっても使えるように更新マクロを作成したのですが下のエラ-がでます。
実行時エラ-’70’書き込みできません
BOOKを保護している訳でもありませんし、読み込み専用にもなっていません。ご教授ください。
Sub 更新()
' 入力内容を消去
Sheets("シ-ト").Select
Range("B3:T65536").Select
Selection.ClearContents
’・・・・・・・・・・・・・・・・
FFF:フォルダF11が保存されているフォルダ名
F11:ブックBBBが保存されているフォルダ名
BBB:現在使用しているブック 名
B22:新しく使う(変更後の)ブック名
’・・・・・・・・・・・・・・・・・・・・・
’BOOK1(ブック名BBB)を複写してBOOK2(ブック名B22)をつくる
FileCopy "D:\FFF\F11\BBB.xls", "D:¥FFF\F11\B22.xls"
’BOOK1の名前をBOOK2へ変更
Name "D:\FFF\F11\BBB.xls" As "D:FFF\F11\B22.xls"
'メニュー画面を表示
Worksheets("初期画面").Activate
Range("A1").Select
End Sub
補足
早速のご回答ありがとうございます。 申し訳ありませんが、署名というものが何か分かりません; エクセルの知識があまりないので、詳しくお教えいただけますと助かります。