Tekst veranderen in kolom A met if then

[HWV]

Beste allemaal,

Ik heb een vraag die waarschijnlijk al hier is voorgekomen maar ik kan deze niet terug vinden.
Ik wil doormiddel van een if then functie bepaalde namen veranderen in kolom A, in dit geval "NL" naar "1".
Ik heb tot nu toe de volgende code, hij geef een foutmelding op :

Active.cell = "1"

Sub AlsGMnfelijkIsAan()
For i = 1 To Range("A65000").End(xlUp).Row
If Cells(i, 1) = "nl" Then
Active.cell = "1"
End If
Next i
End Sub

Ik krijg het maar niet voor elkaar ik heb ook al enkel "cell" gebruikt.

Goret HWV

 

[HWV]

Gevonden

Sub AlsGMnfelijkIsAan()
For i = 1 To Range("A65000").End(xlUp).Row
If Cells(i, 1) = "nl" Then
Cells(i, 1) = "1"
End If
Next i
End Sub

Soms kan het allemaal zo makkelijk zijn.
Een aantal mogelijkheden geprobeerd en gelukt.

Groet HWV