在除 Sheet1 和 Sheet2 之外的每个工作表上运行宏

我想在除sheet1 和sheet2 之外的每张纸上运行宏。

    dim rs as worksheet  
for each rs in sheets  
    if rs.name = "Sheet1" or "Sheet2" then  
    next rs  
else rs.name =rs.range("

我收到错误

接下来没有 for

接下来如何使用 for 循环和 if 语句？

Dim rs As Worksheet
        
For Each rs In Sheets
    If rs.Name = "sheet1" Or "sheet2" Then
Next ws
    Else: rs.Name = rs.Range("N2") 'rename sheet base on vendor name field

    End If
Next rs

小混乱，尝试：

Dim rs As Worksheet

For Each rs In ThisWorkbook.Worksheets
   If rs.Name <> "Sheet1" And rs.Name <> "Sheet2" Then
        rs.Name = rs.Range("N2").Value 'rename sheet base on vendor name field
   End If
Next rs

End Sub