ende bei 257?

habe folgenden Code:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Excel.Range, Cancel As Boolean)
Dim a As Integer

a = 8
While Worksheets("Namensliste").Cells(1, a) = ""
If Cells(a, 12) < "34.00" Then Cells(a, 12).Interior.ColorIndex = 3
a = a + 1
Wend
End Sub

mein Problem ist das die Schleife nicht weiter als a = 257 zählt!
Und mir dann die '1004' Fehlermeldung bringt!?
weiß nicht woran es liegen könnte?
Habt Ihr einen Tipp?

Mfg
Aleks