小编Sar*_*aro的帖子

这是我想要执行的宏：

在除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