WORKAROUND: How To: Creating Arrays of Excel Sheets ???

[Webtest]

Esteemed Forum Participants and Lurkers:
===============================

EXCEL

I have an Excel Workbook with a bunch of sheets in 3 major categories. I can easily walk through the sheets and determine the category, but I can't seem to create Arrays of categorized sheets to work with.

Here is the template for what I want to do:

Dim asht As Worksheet
Dim i as Integer

'HOW TO DIM an Array of Sheets?
Dim ShtCat(3) as WorkSheets

For Each asht In ActiveWorkbook.Worksheets
    'Find the Category for each Sheet
    Select Case Left(asht.Name, 4)
        Case "Cat1"
            i = 1
        Case "Cat2"
            i = 2
        Case "Cat3"
            i = 3
    End Select
    
    'Add this sheet into Sheets Array ShtCat(i) ???

Next

Thank you for any and all comments, suggestions, and assistance.