エラー選択セル範囲

Question

は、何かアドバイスに感謝私のコードのコピーであります。

Private Sub ClearAll_Click() 
Dim Sheet As Worksheet 
Dim CompareTool As Workbook 
Dim Sheetname As String 
Set CompareTool = ThisWorkbook 

With Application 
    .DisplayAlerts = False 
    .ScreenUpdating = True 
End With 

For Each Sheet In CompareTool.Worksheets 
    If Left(Sheet.Name, 8) = "Scenario" Then 
    Sheetname = Sheet.Name 
     With CompareTool.Sheets(Sheetname) 
     .Visible = True 
     .Range("A1:EC168").Select 
     .Visible = False 
     End With 
    End If 
Next Sheet 

Unload Me 
End Sub 

Answer 1

シートが隠されているので、私は何の恩恵はわからないけれども、あなたがアクティブでないシートにSelect何もすることができなくなりますので、解決策はActivateにそれ以前Selectステートメントになります

With Sheet 
    .Visible = True 
    .Activate 
    .Range("A1:EC168").Select 
    .Visible = False 
    End With 

...選択がある作るあなただけの.Range("A1:EC168").Deleteを行い、それを削除する範囲を選択する必要はありません。この方法で、あなたも活性化させるか、それが見えるようにする必要はありません。

With Sheet 
    .Range("A1:EC168").Delete 
    End With