Макрос Excel для запуска всех листов, кроме одного

Question

Макрос Excel, приведенный ниже, выполняется на нескольких заранее определенных листах и ​​форматирует их.Я хочу изменить его, чтобы он отформатировал все листы в книге, кроме одного.

Все листы, независимо от имени, должны быть отформатированы, за исключением листа поиска.

Код, указанный ниже, был сокращен, чтобы показать только один лист, он делает то же самое для 10 других листовно я не хотел помещать все это здесь.Спасибо.

Sub Formatting()


Application.ScreenUpdating = False


Sheets("Products").Select
Columns("F:W").Select
Selection.EntireColumn.Hidden = True
Range("X1").Select
Selection = "Product #"
Range("X1").Font.Bold = True


With Sheets("Products")
    .Range("X2:X" & .Cells(.Rows.Count, "A").End(xlUp).row).Formula = "=IF(ISNA(VLOOKUP(S2,Lookup!C:D,2,FALSE)),"""",VLOOKUP(S2,Lookup!C:D,2,FALSE))"
    .Range("Z2:Z" & .Cells(.Rows.Count, "A").End(xlUp).row).Formula = "=IF(ISNA(VLOOKUP(S2,Lookup!C:D,2,FALSE)),"""",VLOOKUP(S2,Lookup!C:D,2,FALSE))"
    .Range("AC2:AC" & .Cells(.Rows.Count, "A").End(xlUp).row).Formula = "=IF(Z2="""","""",E2)"
End With


Range("A1:X50").Select
ActiveWorkbook.Worksheets("Products").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("Products").Sort.SortFields.Add _
    Key:=Range("X2:X50"), SortOn:=xlSortOnValues, Order:=xlDescending, _
    DataOption:=xlSortNormal
With ActiveWorkbook.Worksheets("Products").Sort
    .SetRange Range("A1:X50")
    .Header = xlYes
    .MatchCase = False
    .Orientation = xlTopToBottom
    .SortMethod = xlPinYin
    .Apply
End With
Columns("X:X").ColumnWidth = 9

Application.ScreenUpdating = True

End Sub

Answer 1

Цикл по рабочим листам является ключом:

Option Explicit
Sub Formatting()

    Dim ws As Worksheet

    For Each ws In ThisWorkbook.Worksheets
        If Not ws.Name = "LookUp" Then 'the sheet with the lookup name
            'your formatting code
        End If
    Next ws    

End Sub