worksheetsの名前変更マクロ
マクロでsheetsをコピーしてそのあと名前を変更するマクロを作っているのですがうまくいきません。
マクロで他のbookを開いて、そのbook名をsheets名にしたいのですが以下のマクロではうまくいきませんでした。どこが悪いのでしょうか?
ご指導お願いいたします。
Sub ~()
OpenFileName = Application.GetOpenFilename("TXT/CSVファイル,*.txt?;*.csv?")
ThisWorkbook.Activate
Application.ScreenUpdating = False
If OpenFileName <> "False" Then
Set TargetBook = Workbooks.Open(OpenFileName)
ThisWorkbook.Activate
Worksheets("マクロ用名称変更不可").Copy before:=Worksheets("マクロ用名称変更不可")
ActiveSheet.Name = OpenFileName
TargetBook.Close
Application.ScreenUpdating = True
Else
MsgBox "キャンセルしました"
End If
End Sub
補足
すみません、後者です。