for i = 1 to 10 step 3
for j = 1 to 4 step 2
with range("B9").Offset(i,j)
Activesheet.Shapes.AddShape msoShapeRectangle, _
.Left, .Top, .Width, .Height
End With
Next j
Next i

--
Regards,
Tom Ogilvy


"EXCEL$B!!(BNEWS" wrote in message
...
hi,

i wonder how to addshapes in a position decided by offsetting a cell ,

instead of points ,like this ActiveSheet.Shapes.AddShape
msoShapeRectangle,
179.25, 194.25, 14.25, 9

thanks,