Ist hier, was ich das Makro tun möchte:

Führen Sie auf jedem Blatt außer Blatt1 und Blatt2 ein Makro aus.

dim rs as worksheet

für jede rs in Sheets, wenn rs.name = "Sheet1" oder "Sheet2", dann nächste rs sonst rs.name = rs.range ("

Ich bin neu bei VBA und bekomme immer wieder einen "next without for" -Fehler. Ich bin mir nicht sicher, wie ich die for-Schleife und die if-Anweisung weiter ausführen soll. Danke im Vorau

            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