Trying to change text in an autoshape but i get an error. Any ideas

This worked for me:-

Sub Rectangle1_Click()
Dim c As String
c = Application.Caller

With ActiveSheet.Shapes(c)
.OLEFormat.Object.Characters.Text = "New Form completed!"
.Fill.ForeColor.SchemeColor = 17
.Fill.Transparency = 0#
.Line.Weight = 2#
.Line.DashStyle = msoLineSolid
.Line.Style = msoLineSingle
.Line.Transparency = 0#
.Line.Visible = msoTrue
.Line.ForeColor.SchemeColor = 1
End With
End Sub