problem coping data from 1 sheet to new sheet

W

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
 
S

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")
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Top