Hi everyone:

I have a worksheet with 4 pictures on it, I need to copy this pictures in
the same worsheet but in a diferent location, I need to make the picture name
generic.
I want to make the following macro to work with any picture name:

Sub FotoCopy()
'
' FotoCopy Macro
' Macro recorded 3/16/2007 by ER
'
' Keyboard Shortcut: Ctrl+d
'
ActiveSheet.Shapes("Picture 339").Select
Selection.Copy
ActiveSheet.Shapes("Picture 253").Select
ActiveSheet.Paste
Selection.ShapeRange.IncrementLeft 225.75
Selection.ShapeRange.IncrementTop -12#
ActiveSheet.Shapes("Picture 335").Select
Selection.Copy
ActiveSheet.Shapes("Picture 261").Select
ActiveSheet.Paste
Selection.ShapeRange.IncrementLeft 226.5
Selection.ShapeRange.IncrementTop -12#
ActiveWindow.ScrollRow = 4
ActiveWindow.ScrollRow = 5
ActiveWindow.ScrollRow = 6
ActiveWindow.ScrollRow = 7
ActiveWindow.ScrollRow = 8
ActiveWindow.ScrollRow = 9
ActiveWindow.ScrollRow = 10
ActiveWindow.ScrollRow = 11
ActiveSheet.Shapes("Picture 336").Select
Selection.Copy
ActiveSheet.Shapes("Picture 271").Select
ActiveSheet.Paste
Selection.ShapeRange.IncrementLeft 226.5
Selection.ShapeRange.IncrementTop -12#
ActiveWindow.ScrollRow = 12
ActiveWindow.ScrollRow = 13
ActiveWindow.ScrollRow = 14
ActiveWindow.ScrollRow = 15
ActiveWindow.ScrollRow = 16
ActiveWindow.ScrollRow = 18
ActiveWindow.ScrollRow = 19
ActiveWindow.ScrollRow = 20
ActiveSheet.Shapes("Picture 337").Select
Selection.Copy
ActiveSheet.Shapes("Picture 281").Select
ActiveSheet.Paste
Selection.ShapeRange.IncrementLeft 226.5
Selection.ShapeRange.IncrementTop -13.5
End Sub

Thank you for you help