How can you draw a shape when the values change each time??

[Ardus Petus]

See example with worksheet Change event proc: http://cjoint.com/?erkFfzkxwN

HTH
--
AP

'--------------
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect( _
Target, _
Union( _
Range("Center_X"), _
Range("Center_Y"), _
Range("Radius") _
) _
) Is Nothing Then Exit Sub
With Me.Shapes("Circle1")
.Top = Range("Center_Y").Value - Range("Radius").Value
.Left = Range("Center_X").Value - Range("Radius").Value
.Height = 2 * Range("Radius").Value
.Width = .Height
End With
End Sub
'---------------