I am not aware of how you might do this entirely in the Excel environment, but in the VBA environment you can use the Intersect method.
Intersect(Range("a1:d4"),Range("c3:g7")).Address
returns
$C$3:$D$4
Intersect(Range("a1:d4"),Range("e5:g7")).Address
has a null return, meaning that the...