see whether a range variable is nothing ;error13 - type mismatch

[Bishonen]

Hi,

prolly very simple question:

whats wrong with this code:

...
For Each cell In Range("B8", "B" & lstRow)
    If InStr(1, cell, "Absence") > 0 Then
        If rAbsence = 0 Then
            Set rAbsence = cell
        Else
            Set rAbsence = Union(rAbsence, cell)
        End If
    End If
    rAbsence.Select
Next cell
...

it works for the first 2 loops, then it gives me error13 - type mismatch.

I can avoid the problem by doing it like this:

if i = 1 then
set rAbsence = cell
i = 2
else
...

But I'd really like to know how to do it the proper way.

[Richard Buttrey]

Please upload the workbook or a representative cut down copy, anonymised if necessary. It is always easier to advise if we can see your request in its context.

[vtxvtx]

On which line is it that the error occurs, (debug the code and see exactly what line it fails on).

Also, you have rAbsence.Select , which is not good code to be having anyway, but then you don't even use the selection in the code. Although if this is just for viewing purposes during debugging, i guess, i'll let you off.

[Norie]

Shouldn't it be something like this.

If rAbsence Is Nothing Then