Kørsel af makro på flere ark

Sub start()
    For Each sh In ActiveWorkbook.Sheets
        shnavn = LCase(sh.Name)
       
        If InStr("sheet1sheet2", shnavn) = 0 Then
            ActiveWorkbook.Sheets(shnavn).Activate
            For i = 2 To 200
                Set curCell = ActiveSheet.Cells(i, 12)
                If (curCell.Value <> "") Then
                    ActiveSheet.Cells(i, 2).Select
                    With Selection.Interior
                        .ColorIndex = 7
                        .Pattern = xlSolid
                    End With
                End If
            Next
        End If
    Next
End Sub

Jeg kan ikke få makroen til at fungere.
Det eneste den gør, er at køre min For løkke på det ark, som man står i.

Har prøvet med 6 ark - hvoraf 2 navnte sheet1 & 2 - virkede perfekt

Hvor har du lagt den tilsendte kode ind - ThisWorkbook?

Sorry, det fungerer fint

OK & tak!

Er du sikker på, at makroen ikke køres på sheet1 og sheet2.
Jeg kan ikke få det til at fungere.

Undskyld igen.
Havde ikke lige set det med lower case

Af ren nysgerrighed: Hvordan kan Excel holde styr på arkene, når man skriver dem ud i en køre uden nogen seperering?

For Each sh In ActiveWorkbook.Sheets

I denne sætning gennemløbes alle ark i den pågældende workbook
sh repræsentere det aktuelle ark og det er det der testes og hvisdet ikke er Sheet1 eller 2 gennemløbes for-løkken i = 2 to 200

Supertekst -> smart ide :-)
If InStr("sheet1sheet2", shnavn) = 0 Then

->Bak - tak for det