https://stackoverflow.com/questions/5183374/vba-test-if-cell-is-in-a-range
Set isect = Application.Intersect(Range("rg1"), Range("rg2")) If isect Is Nothing Then MsgBox "Ranges do not intersect" Else isect.Select End If
Welcome to FreeSoftwareServers Confluence Wiki
https://stackoverflow.com/questions/5183374/vba-test-if-cell-is-in-a-range
Set isect = Application.Intersect(Range("rg1"), Range("rg2")) If isect Is Nothing Then MsgBox "Ranges do not intersect" Else isect.Select End If