В этом примере можно изменить или есть варианты типа:  
"IsNotNumeric" или "if Text"  
Sub Test()  
   'Dim A As String  
   A = Sheet1.Cells(1, 1)  
   If IsNumeric(A) Then  
   MsgBox ("YES")  
   Else: MsgBox ("No")  
   End If  
End Sub  
Заранее спасибо!