Thanks Don,

I tried this one and get a runtime error 9, subscript out of range.
What did I do wrong?

--Jim

On Dec 2, 9:18 am, "Don Guillett" wrote:
Please TOP post here
Sub copysheet()
Sheets("Template").Copy after:=Sheets(Sheets.Count)
ActiveSheet.Name = "Sheet" & Sheets.Count
End Sub

--
Don Guillett
Microsoft MVP Excel
SalesAid Software
"Spike9458" wrote in message

...



On Dec 1, 5:33 pm, "Don Guillett" wrote:
Sub copysheet()
Sheets("Template").Copy after:=Sheets(Sheets.Count)
End Sub

--
Don Guillett
Microsoft MVP Excel
SalesAid Software
"vdmbqb" wrote
in message

...

I have a two page workbook. Page 1 is instructions for the information
expected on page two. Page 2 is called Customer Info.

I would like to have a button on page 1 that I could simply click on
that
would add another Customer Info page with each click.
--
bob- Hide quoted text -

- Show quoted text -

Hi Don,

How would you do it so the new sheet will be named Sheet3 than
'Sheet1 (2)?

--Jim- Hide quoted text -

- Show quoted text -

Perhaps you do not have a sheet named

Template


--
Don Guillett
Microsoft MVP Excel
SalesAid Software

"Spike9458" wrote in message
...
Thanks Don,

I tried this one and get a runtime error 9, subscript out of range.
What did I do wrong?

--Jim

On Dec 2, 9:18 am, "Don Guillett" wrote:
Please TOP post here
Sub copysheet()
Sheets("Template").Copy after:=Sheets(Sheets.Count)
ActiveSheet.Name = "Sheet" & Sheets.Count
End Sub

--
Don Guillett
Microsoft MVP Excel
SalesAid Software
"Spike9458" wrote in
message

...



On Dec 1, 5:33 pm, "Don Guillett" wrote:
Sub copysheet()
Sheets("Template").Copy after:=Sheets(Sheets.Count)
End Sub

--
Don Guillett
Microsoft MVP Excel
SalesAid Software
"vdmbqb"
wrote
in message

...

I have a two page workbook. Page 1 is instructions for the
information
expected on page two. Page 2 is called Customer Info.

I would like to have a button on page 1 that I could simply click on
that
would add another Customer Info page with each click.
--
bob- Hide quoted text -

- Show quoted text -

Hi Don,

How would you do it so the new sheet will be named Sheet3 than
'Sheet1 (2)?

--Jim- Hide quoted text -

- Show quoted text -

You are right. But when I used the first version it seemed to work
just fine, prompting my question about sequential sheet numbering.
Hmmm anyway, it's a pretty cool macro that I can get a lot of use out
of.

Thanks,

--Jim

On Dec 2, 11:25 am, "Don Guillett" wrote:
Perhaps you do not have a sheet named

Template

--
Don Guillett
Microsoft MVP Excel
SalesAid Software
"Spike9458" wrote in message

...



Thanks Don,

I tried this one and get a runtime error 9, subscript out of range.
What did I do wrong?

--Jim

On Dec 2, 9:18 am, "Don Guillett" wrote:
Please TOP post here
Sub copysheet()
Sheets("Template").Copy after:=Sheets(Sheets.Count)
ActiveSheet.Name = "Sheet" & Sheets.Count
End Sub

--
Don Guillett
Microsoft MVP Excel
SalesAid Software
"Spike9458" wrote in
message

...

On Dec 1, 5:33 pm, "Don Guillett" wrote:
Sub copysheet()
Sheets("Template").Copy after:=Sheets(Sheets.Count)
End Sub

--
Don Guillett
Microsoft MVP Excel
SalesAid Software
"vdmbqb"
wrote
in message

...

I have a two page workbook. Page 1 is instructions for the
information
expected on page two. Page 2 is called Customer Info.

I would like to have a button on page 1 that I could simply click on
that
would add another Customer Info page with each click.
--
bob- Hide quoted text -

- Show quoted text -

Hi Don,

How would you do it so the new sheet will be named Sheet3 than
'Sheet1 (2)?

--Jim- Hide quoted text -

- Show quoted text -- Hide quoted text -

- Show quoted text -