Per Alok:
I tried a small test. I got the cell height to be 12.75 and cell width to be
48
Sub Test()
Dim i%
For i = 1 To 50
'Create a rectangle
Sheet1.Shapes.AddShape msoShapeRectangle, (i - 1) * 48, (i - 1) *
12.75, 48, 12.75
Next i
End Sub

this creates 50 rectangles that match perfectly with the cell boundaries as
you can see. Am I missing something?

Looking at your example makes me suspect I defined my work fields incorrectly.

I'm going to revisit and make sure it handles decimal values.
--
PeteCresswell