Собственно оно конечно просто (не отвечаю за то, что работать буит -- не проверял):

Dim cls as Excell.Range
Set cls = ThisWorkbook.Sheets(1).Range("A1")
If cls.Text = Replace(Space(Len(cls.Text)), " ", "#") And cls.Text <> cls.Formula then 
MsgBox "ОПА!"
End If

, но всёж, разьве нет у Excell.Range свойства/метода какого-нить волшебного для проверки
"невлезания" числа в ячейку?