Sort Tabs By Color And Sort Color Groups Alphabetically

I've located the following color sort VBA that sorts worksheets by color and it is working well. I'm trying to modify the code to sort each of the "color grouped" sheets alphabetically. That is, sort by color and then each color group sorted alphabetically.

VB:
Sub SortWorksheetsByColor(Optional ByVal SortByAsc As Boolean = True)

Dim i As Long
Dim j As Long
Dim ShtC() As Long
Dim ShtN() As String
Dim t, n As Long
Dim lngSU As Long

[Code] .....