Вот что писал по этому поводу ZVI:  
Проблем с нумерацией автофигур не будет.  
Excel на каждом листе  отслеживает свою нумерацию автофигур.  
Если на другую машину перенести свой лист, то у него ведь все равно своя индивидуальная нумерация.  
Если раздражают большие цифры, то нумерацию можно автоматически пересчитать.  
Например, на листе много автофигр типа "AutoShape 1024", "AutoShape 1500" и т.д.  
Их можно переименовать в "AutoShape1", "AutoShape2" и т.д. (обращаю внимание, что без пробела!). При этом ActiveSheet.Shapes(1).Name = "AutoShape1" и т.д.    
Ниже привожу код процедуры для такой перенумерации.  
 
' Перенумерация автофигур - ActiveSheet.Shapes(1).Name = "AutoShape1" и т.д  
Sub Перенумеровать()  
Dim i, old  
 On Error GoTo err_  
 Debug.Print "===="  
 For Each v In ActiveSheet.Shapes  
  i = i + 1  
   If Left(v.Name, 9) = "AutoShape" Then  
     old = v.Name  
     v.Name = "AutoShape" & i  
     Debug.Print i, "Было: " & old, "Стало: " & v.Name  
   End If  
 Next  
 Exit Sub  
 Debug.Print "Имя первой автофигуры (по индексу): " & ActiveSheet.Shapes(1).Name  
 Debug.Print "Имя первой автофигуры (по имени):    " & ActiveSheet.Shapes("AutoShape1").Name  
err_:  
 MsgBox "AutoShapes на данном листе не найдены"  
End Sub