>>264
オートシェイプの個数は
sheets("Sheet1").shapes.count

名前は
sheets("Sheet1").shapes(1).name