VBA - formatering

Undskyld.
Søger kun på ord i celler.

Et bud:

Sub SøgOgFarvRød()
Dim søgEfter As String, cc
Dim xRæk As Long, xKol As Long

    xRæk = ActiveCell.SpecialCells(xlLastCell).Row
    xKol = ActiveCell.SpecialCells(xlLastCell).Column
   
    søgEfter = InputBox(" Søgestreng")
   
    Range(Cells(1, 1), Cells(xRæk, xKol)).Select
   
    For Each cc In Selection.Cells
        If cc.HasFormula = True Then
            If InStr(LCase(cc.Formula), søgEfter) > 0 Then
                cc.Interior.ColorIndex = 3
            End If
        End If
    Next cc
End Sub

Supertekst - tak for hjælpen - lægger u et svar?

Har rettet lidt selv:

Sub SøgOgFarvRød()
Dim søgEfter As String, cc
Dim xRæk As Long, xKol As Long

    xRæk = ActiveCell.SpecialCells(xlLastCell).Row
    xKol = ActiveCell.SpecialCells(xlLastCell).Column
   
    søgEfter = InputBox(" Søgestreng")
   
    Range(Cells(1, 1), Cells(xRæk, xKol)).Select
   
   
   
    For Each cc In Selection.Cells
        cc.Interior.ColorIndex = xlColorIndexNone

        If cc.HasFormula = True Then
            If InStr(LCase(cc.Formula), søgEfter) > 0 Then
                cc.Interior.ColorIndex = 3
            End If
        End If
    Next cc
End Sub

Du tror det er løgn, men den virkede og nu virker den så ikke. Kan linjen cc.Interior.ColorIndex = xlColorIndexNone have slået noget helt fra i Excel?

Ret
If InStr(LCase(cc.Formula), søgEfter) > 0 Then
til
If InStr(UCase(cc.FormulaLocal), UCase(søgEfter)) > 0 Then

Vær opmærksom på at en formel som fx
=SUM.HVIS($D$2:$M$2;"=1";D3:M3)
opfattes af VBA som
SUMIF($D$2:$M$2,"=1",D3:M3)

Derfor ændring af: Formula til FormulaLocal
så læses den som lokalsprog

Ok - men lad excelent få ½-del :-)

jeg står over, var blot en sidebemærkning :-)

Tak for hjælpen begge.