Public Flag As Boolean
Sub Macro1()
If Flag = True Then
Selection.Delete
Flag = False
Else
ActiveSheet.Shapes.AddShape(msoShapeRectangle, 486#, 101.25, 276#, 154.5). _
Select
...
...
Selection.ShapeRange.Fill.TwoColorGradient msoGradientDiagonalUp, 1
Flag = True
End If
End Sub