was stimmt nicht

ich habe folgenden code, der zuerst überprüft, ob eine zelle in einem bestimmten dynamischen bereich leer ist. falls nicht, überprüft er, ob in der zelle das erste zeichen ein "-" ist, falls ja wird der text in dieser zelle rot gefärbt. ich erhalte keinen fehler, jedoch wird der text nicht gefärbt.

Dim a, b As Integer
a = (z + 15)
b = 3
Do While Not IsEmpty(Cells(a, 3).Value)
Do While Not IsEmpty(Cells(a, b).Value)
If Left(a, b) = "-" Then
zelle.Font.ColorIndex = 3
End If
b = b + 1
Loop
a = a + 1
Loop

gruss