VBA - Hat Worksheet.Select nicht mehr (ersetzen) Argument?

Question

Ich habe versucht, den folgenden Code verwenden alle Worksheets im Workbook zu wählen:

Public Sub selectAllWS() 
Dim ws As Worksheet 
    For Each ws In ThisWorkbook.Sheets 
     ws.Select False 
    Next 
End Sub 

Dies ist jedoch nicht zu funktionieren scheint - es wählen nicht mehrere Worksheets.

(Nebenbei bemerkt: Ich weiß, ich Sheets(Array("Sheet1", "Sheet2", "Sheet3")).Select verwenden will ich nicht, dies zu tun - ich bin zu experimentieren, wenn ich Sheets über mehr Workbooks auswählen kann

ich die neueste Version von Excel ausgeführt wird.. 2016.

Answer 1

Dies ist ein Weg, dies erreichen könnte, und dies tut verwenden, um die Worksheets(Array:

Workbooks("Book.xlsx").Activate 
Workbooks("Book.xlsx").Worksheets(Array("Sheet1", "Sheet2", "Sheet3")).Select 
Workbooks("Book1.xlsx").Activate 
Workbooks("Book1.xlsx").Worksheets(Array("Sheet1", "Sheet2", "Sheet3")).Select 

side note:
Wie in th gefragt Die Kommentare Ich bin mir nicht sicher, warum Sie dies tun würden, vor allem, da .Select nicht die richtige Codierung in VBA ist.