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

Question

这是我想要执行的宏：

在除sheet1和sheet2之外的所有工作表上运行宏

dim rs as worksheet

对于工作表中的每个rs，如果rs.name =“ Sheet1”或“ Sheet2”，则下一个rs rs.name = rs.range（“

我是VBA的新手，但我不断收到“ next Without 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

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