Как в макросе проверить, текст в ячейке или число?

Вопрос:

    Как в макросе проверить, содержимое ячейки является текстом или числом?
    

Ответ:

    Sub CheckCellToNumber()
    Dim MyVar As Variant
    MyVar = ActiveCell.Value
    If MyVar = "" Then
    MsgBox "Ячейка пуста!"
    Exit Sub
    ElseIf IsNumeric(MyVar) Then
    MsgBox "Это число!""
    Else
    MsgBox "Это не число!"
    End If
    End Sub
    Alex