Automatisk skift af fane farve i excel 2003

Rem Koden anbringes i ThisWorkbook i VBA-vinduet (Alt+F11)
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Source As Range)
    If Source.Value <> "" Then
        Sh.Tab.ColorIndex = 3                      'rød fanefarve
    End If
End Sub

Hvad hvis man gerne vil definere et specefikt celleområde på hvert art?

Hvordan skal celleområderne markeres pr. ark?

F.eks. Ark 1 celle D2:D25 og Ark 2 celle J23:J44. Altså sålede at det kun er i disse celler makroen skal virke

Rem Koden anbringes i ThisWorkbook i VBA-vinduet (Alt+F11)
Private Sub Workbook_SheetChange(ByVal sh As Object, ByVal Source As Range)
    If Source.Value <> "" And erIområdet(sh, Source.Address) = True Then
        sh.Tab.ColorIndex = 3                      'rød fanefarve
    End If
End Sub
Private Function erIområdet(sh, celleAdr)
Dim områdeDef As Variant, aktuelleOmråde As String
Rem.............. "ark0",..Ark1,.... Ark2,......Ark3
    områdeDef = Array("", "D2:D25", "J23:J44", "A1:A27")

    aktuelleOmråde = områdeDef(sh.Index)
   
    For Each cc In sh.Range(aktuelleOmråde).Cells
        If celleAdr = cc.Address Then
            erIområdet = True
            Exit Function
        End If
    Next cc
   
    erIområdet = False
End Function

Er det som ønsket?

Jeg tror på det virker, men jeg fandt en anden løsning, der virkeede lidt nemmere

OK - så del din løsning med os andre og tag selv point...