Sub PlaceObject()

With Worksheets("Sheet1")
.Shapes("Oval 1").Left = .Columns("B").Left
.Shapes("Oval 1").Top = .Rows("6").Top
End With
End Sub

Substitute your Sheet & Shape name, set column & row to wherever you please.
Mike F
"Andrew B" wrote in message
...
Hi
I would like to control the placement of a black dot(small circle)on a
spreadsheet page. From the drawing toolbar I can create the dot and by
recording a macro I can see how changing the increment value moves the
object.
e.g. Selection.ShapeRange.IncrementLeft -0.75

I would like to copy the dot and position it exactly using some xy
reference system if that is possible.

Thanks in advance

Andrew Bourke