You have to paste and then move the item.

I had to postion a lot of charts and used these statements to get it to work

Worksheets(TemperatureSheetName).Shapes(ChartName) .Top = _
Worksheets(TemperatureSheetName). _
Rows((ChartRowOffset * (ModChartNumber)) + 1).Top
Worksheets(TemperatureSheetName).Shapes(ChartName) .Left = _
Worksheets(TemperatureSheetName).Columns(MyColumnO ffset).Left


"Thomp" wrote:

I know nothing about VBA programming so this may be simple for most.
I am trying to create a macro that once I click on the autoshape it
will copy and paste the object in the cell which I have select or
have
the pointer on. I can make it copy and paste to the cell below but
can't figure out how to make it paste to my active cell. I also
really
need in to delete the current autoshape that is in the cell.

thanks in advance

Here is the code

Range("F9").Select
Selection.ClearContents
ActiveSheet.Shapes("AutoShape 7").Select
Selection.Copy
Range("F9").Select
ActiveSheet.Paste