sswcharlie
05-23-2011, 08:49 PM
Hi
Have been doing some searching but came up with nothing like I want to do.
I want to copy a complete sheet with all data and formatting, column & row sizes etc. When the copy is made I want a messagebox so new name can be entered, and that will change the tab name.
A code I recorded goes part way only.
Sub Macro1()
'
' Macro1 Macro
Sheets("Sheet2").Select
Sheets("Sheet2").Copy Before:=Sheets(1)
Sheets("Sheet2 (2)").Select
Sheets("Sheet2 (2)").Name = "notes"
End Sub
To confirm I need on line 2 to include all formatting in 'copy' and
in line 4 I need to be able to rename the new sheet with mssg asking for the new name.
Thankyou
Charlie Harris
Have been doing some searching but came up with nothing like I want to do.
I want to copy a complete sheet with all data and formatting, column & row sizes etc. When the copy is made I want a messagebox so new name can be entered, and that will change the tab name.
A code I recorded goes part way only.
Sub Macro1()
'
' Macro1 Macro
Sheets("Sheet2").Select
Sheets("Sheet2").Copy Before:=Sheets(1)
Sheets("Sheet2 (2)").Select
Sheets("Sheet2 (2)").Name = "notes"
End Sub
To confirm I need on line 2 to include all formatting in 'copy' and
in line 4 I need to be able to rename the new sheet with mssg asking for the new name.
Thankyou
Charlie Harris