Worksheet Tabs

Is it possible to display 2 or more rows of worksheet tabs? I know I can hide some of them but 2 rows would be helpful.

.

https://excel.tips.net/T003009_Worka...heet_Tabs.html

Option Explicit

Sub RenameTabs()
Dim ran As Range
    Dim cel As Object

    Set ran = Worksheets("sheet1").Range("A2:A100")

    For Each cel In ran

        If cel.Value <> Empty Then
            
            ActiveWorkbook.Worksheets.Add After:=Worksheets(Worksheets.Count)
     
            ActiveSheet.Name = CStr(cel.Offset(0, 0).Value)
            
        Else
            Exit For

        End If
        
    Next cel
    CreateIndex
    
End Sub

Sub CreateIndex()

    'This macro checks for an Index tab in the active worksheet and creates one if one does not already exist.
    'If an Index tab already exists, the user is asked to continue.  If they continue, the original Index tab is replaced by a new Index tab.  If they do not continue, the macro stops.
    'The user is then asked if they want to create a link back to the Index tab on all other worksheets (yes or no) and the macro acts accordingly.

    Dim wsIndex As Worksheet
    Dim wSheet  As Worksheet
    Dim retV    As Integer
    Dim i       As Integer

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

    Set wsIndex = Worksheets.Add(Before:=Sheets(1))

    With wsIndex

        On Error Resume Next
            .Name = "Index"
            If Err.Number = 1004 Then
                If MsgBox(Prompt:="A sheet named ""Index"" already exists. Do you wish to continue by replacing it with a new Index?", _
                Buttons:=vbInformation + vbYesNo) = vbNo Then
                    .Delete
                    MsgBox "No changes were made."
                    GoTo EarlyExit:
            End If
                Sheets("Index").Delete
                .Name = "Index"
            End If

        On Error GoTo 0

    retV = vbYes    'MsgBox("Create links back to ""Index"" sheet on other sheets?", vbYesNo, "Linking Options")

            For Each wSheet In ActiveWorkbook.Worksheets
            If wSheet.Name <> "Index" Then
                i = i + 1
                If wSheet.Visible = xlSheetVisible Then
                    .Range("B" & i).Value = "Visible"
                ElseIf wSheet.Visible = xlSheetHidden Then
                    .Range("B" & i).Value = "Hidden"
                Else
                    .Range("B" & i).Value = "Very Hidden"
                End If

            .Hyperlinks.Add Anchor:=.Range("A" & i), Address:="", SubAddress:="'" & wSheet.Name & "'!A1", TextToDisplay:=wSheet.Name
            If retV = 6 And wSheet.Range("A1").Value <> "Index" Then
                wSheet.Rows(1).Insert
                wSheet.Range("A1").Hyperlinks.Add Anchor:=wSheet.Range("A1"), Address:="", SubAddress:="'" & .Name & "'!A1", TextToDisplay:=.Name
            End If

            End If
        Next wSheet

        .Rows(1).Insert
        With .Rows(1).Font
            .Bold = True
            .Underline = xlUnderlineStyleSingle
        End With

        .Range("A1") = "Sheet Name"
        .Range("B1") = "Status"
        .UsedRange.AutoFilter
        Rows("2:2").Select
        ActiveWindow.FreezePanes = True
        Application.Goto Reference:="R1C1"

        .Columns("A:B").AutoFit
    End With

    With ActiveWorkbook.Sheets("Index").Tab
        .Color = 255
        .TintAndShade = 0
    End With

EarlyExit:
    With Application
        .DisplayAlerts = True
        .ScreenUpdating = True
    End With
'Delete All Forms buttons
Sheets("Sheet1").Buttons.Delete
Sheets("Sheet1").Range("A2:Z200").Value = ""
Sheets("Index").Activate
Range("A1").Select
End Sub