Macro to enter a shape with text and macro

I am trying to create a tutorial sheet for a workbook that I am putting together. The goal is to add a comment shape with rounded corners, light blue, with text in the box, with a macro attached and I need to delete a previous comment shape (thats the extra macro attached). I have been trying to get this to work all morning by just recording a macro but cant seem to figure it out. If anyone has any suggestions they would be greatly appriciated.
Thanks

Hi

When you create the shape, give it a name. That way the macro can look for the shape specifically and delete it. The code below should give you the idea. The shape etc was just the first thing I grabbed to give you the idea.

On Error Resume Next
  Set oldone = ActiveSheet.Shapes("fred")
  On Error GoTo 0
  If Not IsEmpty(oldone) Then oldone.Delete
  
    ActiveSheet.Shapes.AddShape(msoShapeOval, 142.5, 42#, 95.25, 36.75).Select
    Selection.Name = "fred"
    Selection.Characters.Text = "This is a test."
    With Selection.Characters(Start:=1, Length:=15).Font
        .Name = "Arial"
        .FontStyle = "Regular"
        .Size = 10
        .Strikethrough = False
        .Superscript = False
        .Subscript = False
        .OutlineFont = False
        .Shadow = False
        .Underline = xlUnderlineStyleNone
        .ColorIndex = xlAutomatic
    End With
    Range("A1").Select

rylo