With ObjShape
.Top = Range("B2").Top
.Left = Range("B2").Left
End With

--
Regards,
Tom Ogilvy

"quartz" wrote in message
...
I have a graphical object on a sheet and it is selected.
How can I align this object so that the top left corner of the object is
exactly at the top left corner of cell "B2"?

My code so far:

Dim objShape As Shape
Set objShape = ActiveSheet.Shapes(strSnapShotName)
objShape.?????????

Thanks much in advance.