Unterschrift mit Grafiktablett einfügen

Hallo liebe VBA-Experten,

ich brauche wieder mal Eure gschätzte Hilfe. Eine Unterschrift soll per VBA
in ein Excel Sheet eingefügt werden. habe es per Makro-Aufzeichnung auch
hingekriegt. nur wird bei jeder neuen Unterschrift der Wert hinter Array("ink")
neu definiert. Gibt es hier die Möglichkeit, daß dieser Wert immer gleich ist ?

Sub Makro1()
'
' Makro4 Makro
'

'
Range("BI64").Select
ActiveSheet.Shapes.Range(Array("Ink 59")).Select
Selection.ShapeRange.ScaleWidth 0.3241838704, msoFalse, msoScaleFromTopLeft
Selection.ShapeRange.ScaleHeight 0.3241840042, msoFalse, msoScaleFromTopLeft
Selection.ShapeRange.IncrementLeft -265.5
Selection.ShapeRange.IncrementTop 119.25
End Sub