Intersect using Variable

[JeannetteE]

Is there any way to use a Variable instead of "ActiveCell" in the following line:

If Not Intersect(ActiveCell, ActiveSheet.ListObjects(CatTable).HeaderRowRange) Is Nothing Then

I'm trying to tidy my code up and not use Select so playing around at the moment.

 

[Joe4]

Sure. You can use any range variable. You just need to define what it is, i.e.

Dim rng as Range
Set rng = Range("A1")
If Not Intersect(rng,...

If you are looping through a range, you could do something structured like:

For each rng in Range("A1:A100")
    If Not Intersect(rng,...
        ...
    End If
Next rng

 

[JeannetteE]

Sure. You can use any range variable. You just need to define what it is, i.e.

Dim rng as Range
Set rng = Range("A1")
If Not Intersect(rng,...

If you are looping through a range, you could do something structured like:

For each rng in Range("A1:A100")
    If Not Intersect(rng,...
        ...
    End If
Next rng

Thank you

 

[Joe4]

You are welcome.