ich muss ein bestehendes VBA anpassen.
Keine Ahnung warum der Verfasser, den Sheet-Namen "Info" umbenennen will.
Im funktionierenden VBA möchte ich lediglich einbauen, das das Sheet "Info" nicht umbenannt wird. ( in A2 steht "Jacken".
Danke für Mithilfe.
Stefan
Sub Namen_anpassen_alle()
Sheets(1).Select
B = ActiveSheet.Index
For Each w In Worksheets
Sheets(B).Activate
n = [A2].Value
On Error Resume Next
w.Name = n
B = B + 1
Next w
Sheets(1).Select
End Sub