Hi.

I need to select an allready inserted image and align it to a cell, But i
can´t make my code works.
What am i doing wrong???

Thansk in advance
SpeeD

Dim myPict As Picture
With ActiveSheet.Range("p2")
Set myPict = ActiveSheet.Shapes("Picture18")
myPict.Top = .Top
myPict.Left = .Left - 50
myPict.Placement = xlMove
End With