This code will create the Rectangle Shape and place it on top of the Range
specified in the With statement on the worksheet indicated in the first line
of the With/EndWith block. The code also stores the name for the Rectangle
and its Index number in case you want to interact with it later on in your
code.

Dim RectangelIndexE10E11 As Long
Dim RectangleNameE10E11 As String
With Range("E10:E11")
Worksheets(1).Shapes.AddShape msoShapeRectangle, _
.Left, .Top, .Width, .Height
RectangelIndexE10E11 = Shapes.Count
RectangleNameE10E11 = Shapes(Shapes.Count).Name
End With

Rick


"alstubna" wrote in message
...
Whithout going through a whole bunch of trial and error, how can I easily
set
the co-ordinates to place an autoshape rectangle over specific cells
E10:E11?