How to use True or Null as a Case in Select Case Statement?

[prabha_friend]

How to shorten this statement:

If sheet.Previous.Range(SingleArea.Address).HasFormula = True Or IsNull(sheet.Previous.Range(SingleArea.Address).HasFormula) Then

Select Case
Case True or Null
Statement
End Select

 

[Jonmo1]

First, the HasFormula property will never be Null.
It's an absolute boolean, it's either True or False.

So you can just do this

If sheet.Previous.Range(SingleArea.Address).HasFormula = True Then
    'Do this if it Has a formula
Else
    'Do That if it does not have a formula
End If

 

[prabha_friend]

https://msdn.microsoft.com/en-us/library/office/ff837123.aspx

 

[Jonmo1]

I stand corrected.
It seemed obvious to me that it was only a true or false statement.
That's only true if the range tested is a single cell...Which your original post led me to believe..
Apparently It's Null if the range is a multicell range, and some cells have formulas and some don't.

Anyway..

I don't think you can use the Null result in Select Case, because it's Null, has no value at all..
But you could test for False, Do Nothing, then use the ELSE part of the select case for your action if Null or True.

Select Case Sheet.Previous.Range(SingleArea.Address).HasFormula
    Case False
        'do Nothing
    Case Else
        'Statement
        MsgBox "It's True or Null"
End Select