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

Hi,I'm new to the forum. I am trying to change text in an autoshape in vba but i get an error. Any ideas. Code below

[/Dim c
c = Application.Caller

With ActiveSheet.Shapes(c)
.OLEFormat.Object.Characters.Text = "Form complete!"
.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\]