problem coping data from 1 sheet to new sheet

[wpreqq99]

User clicks a button to add a new vehicle. This macro is suppose to
copy all of the data in sheet "Vehicle template", then create a new
sheet and paste to that sheet.Then it opens up a UserForm.
Later I want to figure out how to have it name the new sheet based on
data in one of the sheets. But 1st, I want this part to work.

It creates a new sheet ok, but it only pastes the contents of cell A1.
Can anyone see why the entire sheet does not paste to the new sheet?

Thanks
jeff

Sub NewSheet()

Sheets("Vehicle template").Select
ActiveCell.Cells.Select
Selection.Copy
Sheets.Add
ActiveSheet.Paste

UserForm1.TextBox1.SetFocus
UserForm1.Show
End Sub

 

[slarbie]

It's your line:
ActiveCell.Cells.Select

ActiveCell refers to one cell only. Better to have a named range for your
template. For this example I named the range MyTemplate. Then this would be
your code:

Sheets.add
Range("MyTemplate").copy range("a1")