除Sheet1和Sheet2之外，在每张工作表上运行宏

Question

以下是我要做的宏：

在除sheet1和sheet2之外的每张工作表上运行宏

dim rs as worksheet

表格中的每个rs     如果rs.name =＆＃34; Sheet1＆＃34;或＆＃34; Sheet2＆＃34;然后     下一个rs 否则rs.name = rs.range（＆＃34;

我是VBA的新手，而且我一直没有获得＃＆＃39;错误。不知道如何下一个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

Answer 1

小混淆，试试：

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