Querstriche

aber irgendwie hab ich da selbst grad probleme. ich will gucken, ob rechts ne vier steht und dann soll er das nach dem if machen aber irgendwie....
was ist falsch!? normaler weise würd ich jezz sagen okay, dem kann ich nicht helfen bin ich zu dumm zu thema gegessen, aber das lässt mich nicht los. vielleicht kann mir ja dabei einer helfen:

Dim z As Integer
Sub test()
z = 1
Do Until z = 1500
If UCase(Right(z, 1)) = "4" Then
z = z + 1
Rows(z).Insert Shift:=xlDown
Range("A" & z).FormulaR1C1 = "'-------------------"
End If
z = z + 1
Loop
End Sub

danke martin