Can't test Range for Nothing

[Peter Chatterton]

Public Sub testNullRange
Dim rRange As Range
Set rRange = Nothing ' yes, in debugger
If IsNull( rRange ) Then _
MsgBox "DOESN'T COME HERE"
End Sub

 

[Chip Pearson]

Don't use IsNull. Instead, use Is Nothing.

Dim rRange As Range
Set rRange = Nothing ' yes, in debugger
If rRange Is Nothing Then
MsgBox "rRange is Nothing"
End If



--
Cordially,
Chip Pearson
Microsoft MVP - Excel
Pearson Software Consulting, LLC
www.cpearson.com

 

[Ebbe]

Try: If rRange Is Nothing Then

Ebbe

 

[Peter Chatterton]

Thanks guys.

Peter

Try: If rRange Is Nothing Then

Ebbe