Worksheet Change+Grossschreibung

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
'Wert für Wertberechnung eintragen
Dim ta As String
Dim rw As Long
Dim cl As Long
ta = Target.Address
rw = Target.row
cl = Target.Column
'Abfrage Fahrzeugart Grossbuchstaben
If ta <> "" And Cells(4, cl) = "N/A" Then
If Target.Address = ta Then bln = True
If bln = True And Target.Address = ta Then
If Cells(rw, cl).Value <> "" Then
Cells(rw, cl).Value = UCase(Cells(rw, cl).Value)
goto raus:
End If
'bln = False
End If
End If
Exit Sub
raus:
End Sub