ماکروی انتخاب همزمان صفحه ها در اکسل

ماکروی زیر به روشی ساده تمام صفحه ها را همزمان انتخاب می کند. برای انجام این کار ابتدا یک آرایه تهی تعریف می کند. سپس شماره تمام صفحه ها را درون آرایه ذخیره می کند و در آخر با ارسال آرایه به متد Select تمام صفحه ها را انتخاب می کند.  

Sub SelectSheets()
               Dim myArray() As Variant
               Dim i As Integer
               For i = 1 To Sheets.Count
               ReDim Preserve myArray(i - 1)
               myArray(i - 1) = i
               Next i
               Sheets(myArray).Select
               End Sub