|
とりあえず、下記のようにコードを作ってみました。
ところが、途中で、
実行時エラ− '1004':
worksheetクラスのMoveメソッドが失敗しました
とエラーが表示されてしまいます
なぜ、このようなエラーがでるのか?分かりません。
コードに問題があるのでしょうか?
アドバイスお願いします
Sub BOOK()
Dim BookName As String
Dim MasBook As String
Dim WS As Worksheet
Dim ShC As Variant
MasBook = ThisWorkbook.Name
BookName = Range("E5").Value
Application.DisplayAlerts = False
Set Newbook = Workbooks.Add
Newbook.SaveAs FileName:=BookName
Worksheets(Array("Sheet2", "Sheet3")).Delete
Application.DisplayAlerts = True
Workbooks(MasBook).Activate
ShC = 1
For Each WS In Workbooks(MasBook).Sheets
If WS.Name Like BookName & "*" Then
Worksheets(WS.Name).Move after:=Workbooks(BookName).Sheets(ShC)
ShC = Worksheets.Count
Workbooks(MasBook).Activate
End If
Next
Workbooks(BookName).Activate
Application.DisplayAlerts = False
Worksheets(Array("Sheet1")).Delete
ActiveWorkbook.SaveAs FileName:=ThisWorkbook.Path & "\" & BookName
ActiveWorkbook.Close
Application.DisplayAlerts = True
End Sub
|
|