Minimum suchen

Ich habe ein Makro, es wird ein Minimum in der Spalte gesucht.
Nun wenn es in der Spalte 2 oder mehr gibt, dann wird nur ein
Knoten gegeben. Kann mir jemand sagen, wo das Problem liegt?

Sub Minimum()
Dim dimension As Integer
Dim x As Integer, y As Integer, i As Integer
dimension = Cells(1, 4)
x = 6
y = 9
a = Cells(x, y).Value
For i = 1 To dimension - 1
b = Cells(x + i, y).Value
If b < a Then
a = b
c = x + i
End If
Next i
MsgBox "Der Knoten " & Cells(c, 1) & " ist Minimum"
End Sub