Definere figurs størrelse ud fra celleværdier

VBA-koden ser således ud:
Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address = "$D$10" Or Target.Address = "$E$10" Then
        Shapes(1).Width = Range("D10")
        Shapes(1).Height = Range("E10")
    End If
End Sub

D.v.s. at hver gang værdien ændres i en af cellerne - så ændres rektangel også.

Kontakt www.supertekst-it.dk - så sender jeg en mail m/filen

-> Supertekst

Vil det sige at jeg skal gå ind og tildele en makro til det enkelte rektangel og så tilpasser den automatisk efter værdierne?