Blattnamensvergleich

ich möchte gern in allen Tabellenblättern eine Änderung vornehmen, außer in dem Aktiven Tabellenblatt. Dazu habe ich folgenden TestCode:

Sub wsname()

Dim wsn As String
Dim iws As Integer
wsn = ActiveSheet.Name
Cells(1, 1).Value = wsn

For iws = 1 To Worksheets.Count Step 1
If Not Worksheets(iws).Name = wsn Then Cells(1, 1).Interior.ColorIndex = 3
Next iws
End Sub

Leider führt er genau dass gegenteil aus. Kann mal jemand kurz drüberschauen.

Danke