Excel 2007 :: Add Shapes In Range Of Cells To ShapeRange

Using Excel 2007.

I have shapes in 3 different rnages of cells on a cell worksheet:
R1 = $D$5:$D & lngRows (row=32)
R2 = $G$5:$G & lngRows (row = 51)
R3 = $M$5:$M & lngRows (row = 50)

I need to set the properties of the shapes in each range differently The shapes in R1 are Left + 46 But the shapes in the other 2 ranges need to be just left My problem is in this bit

Code:

'Set properties for each shape in ShapeRange
For Each sh In ws.Shapes

I need to be able to set properties for each range separately instead of the entire sheet. Full code below (only Range $D at the moment - works)

Code:

Option Explicit
Sub AddShape3()
'Purpose: Add small rectangles to database table/fields for
' brainstorming and documenting relationships and queries
'
'Resources:

[Code]....