実行時エラー1004：オブジェクト 'シート'の '選択'メソッドが失敗しました

Question

なぜこの実行時エラーが発生するのかわかりません。ワークブック1のシートを選択してブック2にコピーすることになっています。 デバッグは、エラーがラインにあることを示しています。「ActiveWorkbook.Sheets.Select」

Private Sub CommandButton1_Click() 
'On Error GoTo ErrorHandler 
If cef.path = "" Then 
    MsgBox ("PATH of pictures is required") 
Else 
    Dim WB1 As Workbook 
    Dim WB2 As Workbook 

    Dim num As Double 

    Set WB1 = ActiveWorkbook 
    ActiveWorkbook.Sheets("Item_number").Visible = True 
    ActiveWorkbook.Sheets("CODES").Visible = True 
    ActiveWorkbook.Sheets("Item_Number_Hydro").Visible = True 
    ActiveWorkbook.Sheets.Select 
    ActiveWindow.SelectedSheets.Copy 
    Set WB2 = ActiveWorkbook 
    Dim nombreHoja As String 

Answer 1

あなたは、ブック内のいくつか非表示のシートを持っている必要があります。隠しワークシートを選択することはできません。したがって、すべてのシートを選択しようとするActiveworkbook.Sheets.Selectはできません。

You don't actually need to use Select。 （Selectなし）特定のシートの配列をコピーし、

ActiveWorkbook.Sheets.copy 

をまたは：：しかし、あなたはは、隠されたものも含めて、それらを選択せず​​にすべてのシートをコピーすることができ

ActiveWorkbook.Sheets(Array("Item_number","CODES","Item_Number_Hydro")).Copy