Definering Makro evt. ved hjælp af søg erstat?

Prøv med

With Worksheets(1).Range("A1:K500")
    Set c = .Find("GS_Afslag", LookIn:=xlValues)
    If Not c Is Nothing Then
        FirstAddress = c.Address
        Do
            c.Font.ColorIndex = 3
            Set c = .FindNext(c)
        Loop While Not c Is Nothing And c.Address <> FirstAddress
    End If
End With

Husk at ændre "A1:K500" og "GS_Afslag" så det passer til din funktion.

Mit bud

Sub Søg()
Søgstr = InputBox(" Søgestreng")
'
    Cells.Find(What:=Søgstr, After:=ActiveCell, LookIn:=xlValues, _
        LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
        MatchCase:=False).Activate
        ActiveCell.Interior.ColorIndex = 46
        Old = ActiveCell.Address
        Do
    Cells.FindNext(After:=ActiveCell).Activate
    ActiveCell.Interior.ColorIndex = 46
    Loop Until Old = ActiveCell.Address
End Sub

Hey superjap
Perfekt Det virker All most. Problemet er bare det er teksten og ikke cellens fave, der ændres. Kan koden ændres?
Tak

Jeg kan se du har afvist superjap, betyder det så at det er min du mener, så er rettelsen her med skriftfarve.

Sub Søg()
Søgstr = InputBox(" Søgestreng")
'
    Cells.Find(What:=Søgstr, After:=ActiveCell, LookIn:=xlValues, _
        LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
        MatchCase:=False).Activate
        ActiveCell.Font.ColorIndex = 46
        Old = ActiveCell.Address
        Do
    Cells.FindNext(After:=ActiveCell).Activate
    ActiveCell.Font.ColorIndex = 46
    Loop Until Old = ActiveCell.Address
End Sub

Hey kabbak
Det er superjap, der får pointene. Han kom mu engang først. Selvom dit svar er virker lige så godt. Tak

Det er jeg da glad for at høre - men hvorfor afviste du så mit svar?

Jeg vi jo gerne have dig til at svare på,  hvordan det ikke kun er tekstens farve men cellen der ændres Tak

Ok, så misforstod jeg din kommentar.

Hvis det er forgrundsfarven (dvs. skriftfarven), der skal ændres, bruges f.eks.
      c.Font.ColorIndex = 3
Hvis det er bagrundsfarven (dvs. cellefarven), der skal ændres, bruges f.eks.
      c.Interior.ColorIndex = 3

tak!