replicate select by location

Hi,

I have a polygon shapefile containing several land parcels. I would like to identify which of these parcels would intersect to my other polygon shapefile by creating a single button. Steps on customization are mostly understood by me. But since I'm new to programming, its difficult for me to create the VBA code for this. Any suggestion??

A already constructed code would be very much appreciated. Thanks!