Assign Name to a shape

[bbran19]

I have a macro which, among other things, draws a smiley face ( ) from the Insert + Shapes menu after a positive event.

I have a reset all button to remove the data generated by the previous macro AND remove the smiley face.

However, the smiley face keeps changing name from similey face 25, then 26 and so on. So the macro cannot delete it.

I have tried renaming the face )ALT + F10) and in the NAME BAT which works temporarily until the reset macro runs. The the name of the smiley face keeps changing name.

I need a macro that will change the reference name so the shape can be deleted with a reset macro.

Any thoughts appreciated.

 

[Norie]

This code will insert a standard smiley face at the active cell and name it 'MySmiley'.

Sub InsertSmiley()
Dim sh As Shape

    With ActiveCell
        Set sh = .Parent.Shapes.AddShape(msoShapeSmileyFace, .Left, .Top, 20, 20)
    End With
    
    sh.Name = "MySmiley"

End Sub

 

[AlphaFrog]

This will delete all shapes that begin with the name "Smiley Face"

    Dim shp As Shape
    For Each shp In ActiveSheet.Shapes
        If shp.Name Like "Smiley Face*" Then shp.Delete
    Next shp

 

[bbran19]

Thank you AlphaFrog. That did the trick. Thankyou Norie. I have another sheet where that will work well. Your time is appreciated.