Kleur van tekst in kolom A wijzigen als getal in kolom N hoger is dan...

[ludo57]

Hallo, ik heb een groot rekenblad met titels. De eerste kolom(A) is ook tekst.
Ik wil de kleur van de tekst in kolom A wijzigen als het getal in kolom N een bepaalde waarde overschrijdt.
Heb al iets gemaakt, maar alle tekst in kolom A wordt gekleurd.
Wat doe ik verkeerd ?
Sub GroterDan()
Dim c As Range
Dim cell As Range
Dim myRow As Range

Set c = Range("N2:N41")
Set myRow = Range("A2:A41")

For Each cell In c
If cell.Value > 13000 Then
myRow.Cells.Font.Color = vbRed
End If
Next
End Sub

 

[gast0660]

Sub GroterDan()
Dim c As Range
Dim mycell As Range
Set c = Range("N2:N41")
For Each mycell In c
If mycell.Value > 13000 Then mycell.Offset(, -13).Font.Color = vbRed
Next 
End Sub

 

[HSV]

Sub GroterDan()
range("a1:n41").autofilter 14, ">13000"
 columns(1).specialcells(12).font.color = vbred
range("a1:n41").autofilter
End Sub