Удаление или замена таблицы стилей (<ссылка>) с JavaScript/jQuery

Попробуйте:

Option Explicit

Sub test()

    Dim sheetsArray As Sheets

    Set sheetsArray = ThisWorkbook.Sheets(Array("Project", "Project 2", "Project 3", "Project 4"))

    Application.ScreenUpdating = False

        If ShowHide1.Name = "Show All Projects" Then

            For Each Sheet In sheetsArray
                Sheet.Visible = xlSheetVisible
            Next Sheet

            ShowHide1.Name = "Hide All Projects"

            Sheet1.Activate
        Else

            For Each Sheet In sheetsArray
                If (Sheet.Name <> ShowHide1.Name And Sheet.Name <> AlwaysShow.Name) Then
                   Sheet.Visible = xlSheetVeryHidden
                End If
            Next Sheet

            ShowHide1.Name = "Show All Projects"

        End If

        Set sheetsArray = ThisWorkbook.Sheets(Array("Jagger1", "Jagger2", "Jagger3", "Jagger4"))

        If ShowHide1.Name = "Show All Jagger" Then

            For Each Sheet In sheetsArray
                Sheet.Visible = xlSheetVisible
            Next Sheet

            ShowHide1.Name = "Hide Jagger"

            Sheet1.Activate
        Else

            For Each Sheet In sheetsArray
                If (Sheet.Name <> ShowHide1.Name And Sheet.Name <> AlwaysShow.Name) Then
                   Sheet.Visible = xlSheetVeryHidden
                End If
            Next Sheet

            ShowHide1.Name = "Show all Jagger"

            AlwaysShow.Activate

        End If

    Application.ScreenUpdating = True

End Sub