Insert TextBox at beginning of Macro, and delete the TextBox at end of Macro

[Bret1]

Need help to insert a TextBox at (V:7) at beginning of my Macro, then seperate code to delete the TextBox at the end of the Macro. Thanks
TextBox to read...
" MACRO
IS
RUNNING"

I actually need two sets of code, one to insert the TextBox and another set of code to delete the TextBox (long story, but deals with looping and auto-saving).
Could I just assign the TextBox to the same name each time it's inserted?

 

[Bret1]

I recorded the macros below, but it renames the TextBox each time Macro loops, so it's hanging up on selecting the Text Box to delete it. Both codes are below...
Add TextBox code

'Insert Text Box 'MACRO IS RUNNING"
    ActiveSheet.Shapes.AddLabel(msoTextOrientationHorizontal, 1019.25, 94.5, 72, 72 _
        ).Select
    Selection.ShapeRange(1).TextFrame2.TextRange.Characters.Text = _
        "MACRO" & Chr(13) & "IS" & Chr(13) & "RUNNING"
    With Selection.ShapeRange(1).TextFrame2.TextRange.Characters(1, 6). _
        ParagraphFormat
        .FirstLineIndent = 0
        .Alignment = msoAlignCenter
    End With
    With Selection.ShapeRange(1).TextFrame2.TextRange.Characters(1, 6).Font
        .Bold = msoTrue
        .NameComplexScript = "+mn-cs"
        .NameFarEast = "+mn-ea"
        .Fill.Visible = msoTrue
        .Fill.ForeColor.ObjectThemeColor = msoThemeColorText1
        .Fill.ForeColor.TintAndShade = 0
        .Fill.ForeColor.Brightness = 0
        .Fill.Transparency = 0
        .Fill.Solid
        .Size = 11
        .Name = "+mn-lt"
    End With
    With Selection.ShapeRange(1).TextFrame2.TextRange.Characters(7, 3). _
        ParagraphFormat
        .FirstLineIndent = 0
        .Alignment = msoAlignCenter
    End With
    With Selection.ShapeRange(1).TextFrame2.TextRange.Characters(7, 3).Font
        .Bold = msoTrue
        .NameComplexScript = "+mn-cs"
        .NameFarEast = "+mn-ea"
        .Fill.Visible = msoTrue
        .Fill.ForeColor.ObjectThemeColor = msoThemeColorText1
        .Fill.ForeColor.TintAndShade = 0
        .Fill.ForeColor.Brightness = 0
        .Fill.Transparency = 0
        .Fill.Solid
        .Size = 11
        .Name = "+mn-lt"
    End With
    With Selection.ShapeRange(1).TextFrame2.TextRange.Characters(10, 7). _
        ParagraphFormat
        .FirstLineIndent = 0
        .Alignment = msoAlignCenter
    End With
    With Selection.ShapeRange(1).TextFrame2.TextRange.Characters(10, 7).Font
        .Bold = msoTrue
        .NameComplexScript = "+mn-cs"
        .NameFarEast = "+mn-ea"
        .Fill.Visible = msoTrue
        .Fill.ForeColor.ObjectThemeColor = msoThemeColorText1
        .Fill.ForeColor.TintAndShade = 0
        .Fill.ForeColor.Brightness = 0
        .Fill.Transparency = 0
        .Fill.Solid
        .Size = 11
        .Name = "+mn-lt"
    End With
    With Selection.ShapeRange.Fill
        .Visible = msoTrue
        .ForeColor.ObjectThemeColor = msoThemeColorAccent3
        .ForeColor.TintAndShade = 0
        .ForeColor.Brightness = 0.6000000238
        .Transparency = 0
        .Solid
    End With
    With Selection.ShapeRange.Line
        .Visible = msoTrue
        .ForeColor.RGB = RGB(0, 0, 0)
        .Transparency = 0
    End With

Code to delete TextBox

 'Delete Textbox "MACRO IS RUNNING" before Auto-Save
    ActiveSheet.Shapes.Range(Array("TextBox 1")).Select
    Selection.Delete