Присвоение значения ячейки переменной

[VoSKreS]

Есть таблица. Где все значения 27 столбца Double. Но при a = a + Cells(i, 27).Value видает ошибку Type mismatch. В связи с тем что я еще юный. Прошу помощи и заранее благодарю.
Один из моих учетилей говорит..."Если сам понял что дурак значит не все еще потеряно"

Sub cukl()
Dim i As Integer
Dim a As Double
i = 4
a = 0
Do
If Cells(i, 8) Like "*2011" Then
a = a + Cells(i, 27).Value
End If
i = i + 1
Loop Until Cells(i, 8) = Empty
MsgBox (a)
End Sub

[IgorGO]

Где все значения 27 столбца Double.

что мне подсказывает, что не все...
когда остановилась программа, Вы можете узнать чему равно i, и можете "пристально посмотреть в глаза этим данным" - там не число, Ексель не стал бы прикалываться с несоответствием типов, если все в соответствии.