Tom,

Exactly what I needed, thanks!!!

"Tom Ogilvy" wrote:

The picture is always smaller than the cell?

with activesheet.Shapes("Picture1")
.Top = range("B9").Top + ( range("B9").Height - .height)/2
.Left = range("B9").Left + (range("B9").Width - .Width)/2
End With

--
Regards,
Tom Ogilvy


"ZipCurs" wrote in message
...
I have a table with pictures (jpegs) and descriptions. I would like to
use a
macro to insert the picture in the cell next to the description and center
it
in the cell. I can easily get it near the cell, but I can't seem to find
a
way to position the picture exactly where it want it. Any help
appreciated.