Доброго всем времени суток!  
 
То ли не выспался, то ли заклинило, но не могу понять в чем же суть проблемы. :)  
 
Код:  
-----------------------  
Private Sub Worksheet_Change(ByVal Target As Excel.Range)  
   Dim rClmIndex  
   rClmIndex = Target.Column  
   If Target.Cells.Count = 1 Then  
       FirstAdr = Target.Address(False, False)  
           If rClmIndex = 12 Then If Not IsEmpty(Target) And Not IsNumber(Target) Then Target.Text = "" ' ошибка выделяет "IsNumber"  
   End If  
End Sub  
-----------------------  
 
Помогите пожалуйся! Объясните, что делаю не так :(