Autoshape textbox

[charles.brown]

I want to copy a textbox in its entirity and paste it to a location on
another sheet inside the same workbook prior to printing the sheet.

ActiveSheet.Shapes("Text Box 17").Select
Selection.Copy
Sheets("Pre Bid PRNT").Select
Range("A28").Select
ActiveSheet.Paste
Sheets("Pre Bid PRNT").Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
Sheets("Pre Bid PRNT").Select
Sheets("Pre Bid").Select

It is failing on the Range("A28").Select statement If I remove it I
get results but it is pasted in "A1". i want it to appear further down
the sheet.

Any ideas what is wrong?

 

[Tom Ogilvy]

Your probably running this code from a sheet module. so you need to qualify
that statement with the sheet name:

ActiveSheet.Shapes("Text Box 17").Select
Selection.Copy

With Sheets("Pre Bid PRNT")
.Select
.Range("A28").Select
.Paste
.PrintOut Copies:=1, Collate:=True
End With
Sheets("Pre Bid").Select

 

[Don Guillett]

Does this help?

Sub copyshape()
Sheets("sheet7").Shapes("Text Box 45").Copy
Application.Goto Sheets("Sheet4").Range("c12")
ActiveSheet.Paste
Sheets("sheet4").PrintOut
End Sub

 

[charles.brown]

I applied Toms changes from above and that worked for me.

 

[Don Guillett]

Whatever floats your boat