Select surfaces those sharing a single edge using macro

I need to select surfaces those sharing a single edge using macro. Could anyone help me with this?

Thanks

SolidworksApi macros