Rename Drawing Tabs and Sorting

So I have a two fold question.  I'm looking for an easy way to do two things.

First I would like a single click method for changing a drawing tab name to the part name (ie. Sheet 1 changing to XXXXX-XXX-XXX based of the part file name of XXXXX-XXX-XXX.sldprt or XXXXX-XXX-XXX.sldasm).  If there is a way to write a macro or an already made macro for this help with this would be appreciated.

Secondly after the tabs are re-named they then need to be sorted into numerical order.  So 11111-100-001 needs to be before 11111-100-002 but done in a single click.  I have been sorting drawing tabs for some time now because things were re-named to new part numbers from an old drawing package to a new drawing package and well.....they need to be re-sorted into order. If there is a way to write a macro or an already made macro for this help with this would be appreciated.