Sub addsheet()
Set oldsheet = ActiveSheet
MyValue = InputBox("Enter a name", "Add New Sheet Input Box")
Set NewSheet = Worksheets.Add
NewSheet.Name = MyValue
oldsheet.Rows("2:2").Copy Destination:=ActiveSheet.Range("A2")
End Sub


Gord Dibben MS Excel MVP

On Thu, 18 Dec 2008 20:04:01 -0800, celio3c
wrote:

Hi there!
I have the code bellow that allow me to create and name the new wsheet,
now i need to copy what is in the row 2 of the prior wsheet or any sheet,
because all sheets have the same header.

apreciate all the help.

thanks

celio3c


Public Sub newWsheet()
Dim Message, Title, Default, MyValue
Message = "Enter a name for the new Worksheet" ' Set prompt.
Title = "Add New sheet Input Box" '
Set title.
Default = "Give me a Name" '
Set default.
MyValue = InputBox(Message, Title, Default) '
'Display message, title, and default value.

Set NewSheet = Worksheets.Add
NewSheet.Name = MyValue
cmbWsheet.AddItem MyValue

End Sub