Mega Code Archive

 

Categories / VisualBasic Script / Language Basics

 

Three-level nested Select Case statement

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