Autostart af macro ved tal i celle

Nedenstående placeres i arkets kodemodul

Private Sub Worksheet_Change(ByVal Target As Range)

    If Intersect(Target, Range("A1")) Is Nothing Then Exit Sub
        If [A1] <> "" Then
            Range("B1") = ("kr.")
        End If
   
End Sub

Men hvorfor en makro når det er så enkelt at bruge en formel i cellen i dette tilfælde.

Under forudsætning af at tal indtastes i celle A1, skriv følgende formel i celle B1

=HVIS(A1<>"";"Kr.";"")

Hvis du skal bruge det samme i f.eks. 100 rækker, marker celle B1, peg med markøren i nederste højre hjørne af cellen til markøren bliver et kryds, venstreklik og hol klikket, træk ned til række 100.

Eller brugerdefiner formatet i cellen til "kr * #.##0,00".

Tak for svaret - begge løsninger ser ud til at virke fint for mig :-)
Smider du et svar så du kan få point?

;b)