A nested Select Case example : Select « Language Basics « VBA / Excel / Access / Word

A nested Select Case example

 
Sub CheckCell()
      Dim Msg As String
      Select Case IsEmpty(ActiveCell)
      Case True
         Msg = "is blank."
      Case Else
         Select Case ActiveCell.hasFormula
      Case True
         Msg = "has a formula"
      Case False
         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

Related examples in the same category

1.	Use Integer as the switch value for Select Case Structure
2.	Use select case statement
3.	Use string text as the select case statement control value
4.	Specifying a Range of Values in a Case Clause by using the To keyword between the values of expressions
5.	Select Case Statements with comparison operator
6.	Specify a range in select case statement
7.	Specifying Multiple Expressions in a Case Clause: specify multiple conditions within a single Case clause by separating each condition with a comma
8.	Using Is with the Case Clause
9.	Select Case Else
10.	Three-level nested Select Case statement
11.	Convert number to String by using Select statement
12.	Choosing Actions with Select Case