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
--
celio3c