Copying text boxes

SGH

Board Regular
Joined
Dec 11, 2003
Messages
72
I've written the following to copy Text Box 1 from one tab to another within a workbook. This works fine but when I want to delete the Text Box 1 its no longer that name, anyone know how I can keep the name as Text Box 1 after copying it ?

Sub PBTEN()
Sheets("PB").Select
ActiveSheet.Shapes("Text Box 1").Select
Selection.Copy
Sheets("Period Update").Select
Range("I28").Select
ActiveSheet.Paste
Range("A1").Select
End Sub
 

Excel Facts

Easy bullets in Excel
If you have a numeric keypad, press Alt+7 on numeric keypad to type a bullet in Excel.

TryingToLearn

Well-known Member
Joined
Sep 10, 2003
Messages
730
Works fine for me if the textbox name is correct to start with:


ActiveSheet.Shapes("Text Box 1").Select

SHOULD BE

ActiveSheet.Shapes("TextBox1").Select
 

SGH

Board Regular
Joined
Dec 11, 2003
Messages
72
ActiveSheet.Shapes("Text Box 1").Select

SHOULD BE

ActiveSheet.Shapes("TextBox1").Select

Text Box 1 with spaces is the name that Excel gives the text box & if you take out the spaces the macro doesn't work full stop.

I have found a way round by creating a blank text box & using this.
 

Forum statistics

Threads
1,186,172
Messages
5,956,363
Members
438,248
Latest member
Poysenberries

We've detected that you are using an adblocker.

We have a great community of people providing Excel help here, but the hosting costs are enormous. You can help keep this site running by allowing ads on MrExcel.com.
Allow Ads at MrExcel

Which adblocker are you using?

Disable AdBlock

Follow these easy steps to disable AdBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the icon in the browser’s toolbar.
2)Click on the "Pause on this site" option.
Go back

Disable AdBlock Plus

Follow these easy steps to disable AdBlock Plus

1)Click on the icon in the browser’s toolbar.
2)Click on the toggle to disable it for "mrexcel.com".
Go back

Disable uBlock Origin

Follow these easy steps to disable uBlock Origin

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back

Disable uBlock

Follow these easy steps to disable uBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back
Top