//Author: Walter Behrnes
//Name: Convert SubD Keep Object Name
//Usage:  Either bind this script to a key or place it on your shelf.//        select objects and run script. Will require that you do not have
//        any objects named polyToSubd1.

string $oConvert[] = `ls -sl`;

for($i=0;$i<size($oConvert);$i++){
	string $oCurrent = $oConvert[$i];
	select $oCurrent;
	CreateSubdivSurface;
	rename polyToSubd1 $oCurrent;
}