Tìm lỗi sai trong đoạn code VBA??

[Quy Vu]

Chào các anh chị, các anh chị chỉ giúp em xem đoạn code này sai ở đâu với ạ
Sub test_FC_LGIT()
Dim a, b, c, d, i
a = Range("D10")
b = Range("D2").Select
i = 0
Do Until a.Value < 0
a.Value = a.Value - b.Value
b = ActiveCell.Offset(0, 1)
Loop
Selection.Interior.ColorIndex = 3
End Sub
Nó báo lỗi ở cái a.value, trong khi có một đoạn code khác tương tự nhưng vẫn chạy
Sub VD_BienDT()
Dim Vung As Range
Dim c As Object
Set Vung = Range("B1:B10")
d = 0
For Each c In Vung
If c.Value < 40 Then
d = d + 1
End If
Next c
MsgBox "Gia tri moi cua bien D la" & d
Set Vung = Nothing
End Sub

Em cám ơn!

 

[VetMini]

Tương tự sao được. Code sub 2 có từ khoá "Set". Code sub 1 không có.