Cacher is the code snippet organizer for pro developers

Option Explicit
Dim Msg As String

Sub CheckCell()

    Select Case IsEmpty(ActiveCell)
        Case True
        Msg = "is blank"
        Case Else
            Select Case ActiveCell.HasFormula
                Case True
                Msg = "has a formula"
                Case Else
                    Select Case IsNumeric(ActiveCell)
                        Case True
                        Msg = "has a number"
                        Case Else
                            Msg = "has text"
                    End Select
            End Select
        End Select
        
    MsgBox "Cell " & ActiveCell.Address & " " & Msg

End Sub