Makro, skifte tekst farve i en celle i den eller de markerede rækker

Hejsa,

Prøver at få nedenstående til at virke, men den driller.
Det er en knap jeg har tildelt en makro.
Den skal i den eller de markerede rækker sætte NEJ i celle B og Ja i celle M, den skal ligeledes ændre farven på teksten i celle D.

Dem virker ikke med hensyn til farven og heller ikke ved markering af flere rækker.

Hvad mangler jeg, ud over mere viden til programmering?

Sub Estm_Knap()
'
' Estm_Knap Makro
' Sætter celle B til NEJ og M til JA, tekst i celle D grønlig, i den markerede række(r)
'
 

Dim R1
R1 = Selection.Rows(1).Row

Range(Cells(R1, 2), Cells(R1, 2)) = "Nej"
Range(Cells(R1, 13), Cells(R1, 13)) = "Ja"
Range(Cells(R1, 4), Cells(R1, 4)) = Font.Color = RGB (131.200.130)

End Sub