Sub test()  
If intersect(ActiveCell, Range("A:A,C:C")) Is Nothing Then     
MsgBox "not intersect" 
Else     
MsgBox "intersect" 
End If  End Sub  

Sub test2()  

Dim colA As ListColumn, colC As ListColumn
'''
Set colA = ListObjects("Table1").ListColumns("a").Range 
Set colC = ListObjects("Table1").ListColumns("c").Range 
'''
Dim rng As Range
Set rng = Union(colA,colC)

If intersect(ActiveCell, rng) Is Nothing Then     
MsgBox "not intersect" 
Else     
MsgBox "intersect" 
End If  
End Sub