如何修改这组代码

RexxarHuang

Sub 填充日明细()
    Dim wSH As Worksheet
    Application.ScreenUpdating = False
    With ActiveSheet
        For Each wSH In Sheets
            If wSH.Name <> .Name Then
                wSH.Select
                abc
            End If
        Next
        .Select
    End With
    MsgBox "Finish！"
    Application.ScreenUpdating = True
End Sub

如果我想除去一个叫“汇总”，一个叫“等级模型”两个表不运行abc宏，需要怎么修改代码,求大神指教下