hi
with this marco i add Oval shape to sheet
Sub OvalClick_()
Dim i As Long
i = Range("N2")
ActiveSheet.Shapes.AddShape(msoShapeOval, 480, 170, 200, 200).Select
Selection.ShapeRange.Fill.Visible = msoFalse
Selection.ShapeRange.Line.DashStyle = msoLineSolid...