How to rename pasted sketch (VBA)?

I need to paste a sketch which has specifically named attributes on multiple planes.  I would like to rename each pasted sketch instance as it is created, but haven't found a way to select the sketch just pasted, since the sequential sketch names can vary in various models.  Please help!

I've attached a SW macro that I wish would work.  It would if the sketch were still selected after the paste operation, but it isn't.

SolidworksApi macros