VBA Function to Resize a rectangle based on dimension values in cells

[Atef81]

Hi,
I want to write a VBA code to draw a rectangle based on dimensions written in 2 cells (width and height).
Then if I changed the values in the cells, the rectangle resizes to the new dimensions.

The code I was able to reach so far draws the triangle, but it keeps adding new triangles on top of each other even without me changingany values.
Then when i change the values, I find another rectangle is drawn on top of the old one(s).

Can someone help me adjusting the code, please?
Thanks in advance.
Here is my code:

Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)

Set myDocument = Worksheets(1)

With myDocument.Shapes.AddShape(msoShapeRectangle, 199, 144, Range("B1"), Range("B2"))
    .Name = "Red Square"
    .Fill.ForeColor.RGB = RGB(255, 0, 0)
    .Line.DashStyle = msoLineDashDot
    End With
End Sub

 

[I_know_nuffin]

try adding

If myDocument.Shapes.Count > 0 Then myDocument.Shapes(1).Delete