VBA: Hvis to celler er ens, udfør denne handling

Jeg har brug for et vba script. som udfører følgende:

Private Sub Insert_if_equal()

If Range("P17").Value = Range("Q17").Value Then
    Range("P19").Select
    ActiveCell.FormulaR1C1 = "Korrekt"
   
Else

    Range("P19").Select
    ActiveCell.FormulaR1C1 = "Fejl"

End If

End Sub


Hvis celle P17 er lig med celle Q17, så indsæt "Korrekt", men hvis de ikke er ens, så indsæt "Fejl".

Det rigtige script skal indeholde noget mere, men ovenstående eksempel er lavet for forståelsens skyld.

På forhånd tak for hjælpen