Tom celle i tabel og VBA

Private Sub CommandButton1_Click()

Select Case ActiveCell.Text \'Vælg den aktive celle
    Case Is = \"\" \'Er den tom?
        MsgBox \"Cellen er tom\"
    Case Else \'Hvis ikke cellen er tom
        MsgBox \"Cellen er ikke tom\"
End Select

End Sub

I dette eksempel fremkommer en meddelsesboks med teksten \".. tom\" eller \".. ikke tom\", når der vælges en celle og der trykkes på en knap i regnearket.