help needed trying to find autoshape/shape name

hi i got a sheet which I copy and insert it at the end of the workbook problem is that I have a rectangle which I would like text to be inside however it changes names as soon as I copy it is there a way I could use like a variable to do what I want with the only shape on my sheet.

Sub Macro6()

    ActiveSheet.Shapes("Rectangle 1627").Select
    Selection.Characters.Text = "hello world. Its" & Now()
    End Sub

You say you only have one shape, but you have already described having a
command button on the sheet, which is a shape as well. So I assume you know
where the shape is located:

for each shp in ActiveWorksheet.Shapes
if shp.TopLeftCell.Address = "$B$9" then
shp.TextFrame.Characters.Text = "hello world. Its" & Now()
end if
Next

--
Regards,
Tom Ogilvy


"funkymonkUK" wrote:

>
> hi i got a sheet which I copy and insert it at the end of the workbook
> problem is that I have a rectangle which I would like text to be inside
> however it changes names as soon as I copy it is there a way I could use
> like a variable to do what I want with the only shape on my sheet.
>
>
> Code:
> --------------------
> Sub Macro6()
>
> ActiveSheet.Shapes("Rectangle 1627").Select
> Selection.Characters.Text = "hello world. Its" & Now()
> End Sub
>
> --------------------
>
>
> --
> funkymonkUK
> ------------------------------------------------------------------------
> funkymonkUK's Profile: http://www.excelforum.com/member.php...o&userid=18135
> View this thread: http://www.excelforum.com/showthread...hreadid=544699
>
>