Paul,

here is the code I have span for you so far


Sub SheetInsert()

x = InputBox("How many sheets would you like to add?", "Insert Sheets")
y = InputBox("What would you like the number of the first sheet to
be?", "Insert Sheets")

For i = 1 To x
Sheets.Add
ActiveSheet.Name = i + y - 1
[A1] = i + y - 1
ActiveSheet.Move
After:=Sheets(Worksheets(Worksheets.Count).Name)
Next i

End Sub


the problem i have is knwoing how much of the master sheet you want to
coy.
I can't imagine it is everything else this would mean the code that
writes the sheet name to A1 of each cell is rendered useless. (It will
be overwritten)

let me know what range of the Master sheet you want copying and where
to in each sheet

somethinglikeant

http://www.excel-ant.co.uk






Paul Black wrote:
Hi Everyone,

I have a Sheet Named Master.
I would like 2 Input Boxes :-

Input Box 1 will ask me for the Number of Sheets I would like to be
Inserted.
Input Box 2 will ask me what the Number of the First New Sheets Tab is
to be.

If I was to ask for 50 Sheets to be Inserted and the Number of the
First Sheet was to be 901 for Example, the 50 Sheets Tabs would go from
901 to 950.
I would also like the Number of the Sheets Tab to be Placed in Cell A1
of EVERY Sheet as a Value.
Finally I would like the Sheet Named Master to be Copied to EVERY Sheet
and the Cursor to End Up in Cell B22 of EVERY Sheet.
It would also be Very Useful if the Sheets to be Inserted are Inserted
Directly After the Number of the Current Highest Sheet Number Used
Please.
I hope I have Explained this Clear Enough.

Thanks in Advance.
All the Best.
Paul

Thanks for the Reply somethinglikeant,

I did want to Copy ALL of the Master Sheet to EACH of the New Sheets (
Because of Formatting and Column Widths etc ).
Would it be Easier to do this First and then put the Name of EACH Sheet
in Cell A1.

Thanks in Advance.
All the Best.
Paul

somethinglikeant wrote:
Paul,

here is the code I have span for you so far


Sub SheetInsert()

x = InputBox("How many sheets would you like to add?", "Insert Sheets")
y = InputBox("What would you like the number of the first sheet to
be?", "Insert Sheets")

For i = 1 To x
Sheets.Add
ActiveSheet.Name = i + y - 1
[A1] = i + y - 1
ActiveSheet.Move
After:=Sheets(Worksheets(Worksheets.Count).Name)
Next i

End Sub


the problem i have is knwoing how much of the master sheet you want to
coy.
I can't imagine it is everything else this would mean the code that
writes the sheet name to A1 of each cell is rendered useless. (It will
be overwritten)

let me know what range of the Master sheet you want copying and where
to in each sheet

somethinglikeant

http://www.excel-ant.co.uk






Paul Black wrote:
Hi Everyone,

I have a Sheet Named Master.
I would like 2 Input Boxes :-

Input Box 1 will ask me for the Number of Sheets I would like to be
Inserted.
Input Box 2 will ask me what the Number of the First New Sheets Tab is
to be.

If I was to ask for 50 Sheets to be Inserted and the Number of the
First Sheet was to be 901 for Example, the 50 Sheets Tabs would go from
901 to 950.
I would also like the Number of the Sheets Tab to be Placed in Cell A1
of EVERY Sheet as a Value.
Finally I would like the Sheet Named Master to be Copied to EVERY Sheet
and the Cursor to End Up in Cell B22 of EVERY Sheet.
It would also be Very Useful if the Sheets to be Inserted are Inserted
Directly After the Number of the Current Highest Sheet Number Used
Please.
I hope I have Explained this Clear Enough.

Thanks in Advance.
All the Best.
Paul

Yep

Here you a-

Sub SheetInsert()

x = InputBox("How many sheets would you like to add?", "Insert Sheets")
y = InputBox("What would you like the number of the first sheet to
be?", "Insert Sheets")

For i = 1 To x
Sheets.Add
ActiveSheet.Name = i + y - 1
pasteto = ActiveSheet.Name: Sheets("Master").Cells.Copy
Sheets(pasteto).[A1]
[A1] = i + y - 1
ActiveSheet.Move
After:=Sheets(Worksheets(Worksheets.Count).Name)
Next i

End Sub

send me an e-mail if you would like me to send the workbook I've been
working with.
unless, can you attach workbooks in google groups??

somethinglikeant

http://www.excel-ant.co.uk





Paul Black wrote:
Thanks for the Reply somethinglikeant,

I did want to Copy ALL of the Master Sheet to EACH of the New Sheets (
Because of Formatting and Column Widths etc ).
Would it be Easier to do this First and then put the Name of EACH Sheet
in Cell A1.

Thanks in Advance.
All the Best.
Paul

somethinglikeant wrote:
Paul,

here is the code I have span for you so far


Sub SheetInsert()

x = InputBox("How many sheets would you like to add?", "Insert Sheets")
y = InputBox("What would you like the number of the first sheet to
be?", "Insert Sheets")

For i = 1 To x
Sheets.Add
ActiveSheet.Name = i + y - 1
[A1] = i + y - 1
ActiveSheet.Move
After:=Sheets(Worksheets(Worksheets.Count).Name)
Next i

End Sub


the problem i have is knwoing how much of the master sheet you want to
coy.
I can't imagine it is everything else this would mean the code that
writes the sheet name to A1 of each cell is rendered useless. (It will
be overwritten)

let me know what range of the Master sheet you want copying and where
to in each sheet

somethinglikeant

http://www.excel-ant.co.uk






Paul Black wrote:
Hi Everyone,

I have a Sheet Named Master.
I would like 2 Input Boxes :-

Input Box 1 will ask me for the Number of Sheets I would like to be
Inserted.
Input Box 2 will ask me what the Number of the First New Sheets Tab is
to be.

If I was to ask for 50 Sheets to be Inserted and the Number of the
First Sheet was to be 901 for Example, the 50 Sheets Tabs would go from
901 to 950.
I would also like the Number of the Sheets Tab to be Placed in Cell A1
of EVERY Sheet as a Value.
Finally I would like the Sheet Named Master to be Copied to EVERY Sheet
and the Cursor to End Up in Cell B22 of EVERY Sheet.
It would also be Very Useful if the Sheets to be Inserted are Inserted
Directly After the Number of the Current Highest Sheet Number Used
Please.
I hope I have Explained this Clear Enough.

Thanks in Advance.
All the Best.
Paul

Thanks somethinglikeant,

It does Insert & Number the Sheet Tabs and put the Sheet Tab Number in
Cell A1 of EACH Sheet, but it does NOT Copy & Paste Anything from the
Sheet Named Master.

Thanks in Advance.
All the Best.
Paul

somethinglikeant wrote:
Yep

Here you a-

Sub SheetInsert()

x = InputBox("How many sheets would you like to add?", "Insert Sheets")
y = InputBox("What would you like the number of the first sheet to
be?", "Insert Sheets")

For i = 1 To x
Sheets.Add
ActiveSheet.Name = i + y - 1
pasteto = ActiveSheet.Name: Sheets("Master").Cells.Copy
Sheets(pasteto).[A1]
[A1] = i + y - 1
ActiveSheet.Move
After:=Sheets(Worksheets(Worksheets.Count).Name)
Next i

End Sub

send me an e-mail if you would like me to send the workbook I've been
working with.
unless, can you attach workbooks in google groups??

somethinglikeant

http://www.excel-ant.co.uk





Paul Black wrote:
Thanks for the Reply somethinglikeant,

I did want to Copy ALL of the Master Sheet to EACH of the New Sheets (
Because of Formatting and Column Widths etc ).
Would it be Easier to do this First and then put the Name of EACH Sheet
in Cell A1.

Thanks in Advance.
All the Best.
Paul

somethinglikeant wrote:
Paul,

here is the code I have span for you so far


Sub SheetInsert()

x = InputBox("How many sheets would you like to add?", "Insert Sheets")
y = InputBox("What would you like the number of the first sheet to
be?", "Insert Sheets")

For i = 1 To x
Sheets.Add
ActiveSheet.Name = i + y - 1
[A1] = i + y - 1
ActiveSheet.Move
After:=Sheets(Worksheets(Worksheets.Count).Name)
Next i

End Sub


the problem i have is knwoing how much of the master sheet you want to
coy.
I can't imagine it is everything else this would mean the code that
writes the sheet name to A1 of each cell is rendered useless. (It will
be overwritten)

let me know what range of the Master sheet you want copying and where
to in each sheet

somethinglikeant

http://www.excel-ant.co.uk






Paul Black wrote:
Hi Everyone,

I have a Sheet Named Master.
I would like 2 Input Boxes :-

Input Box 1 will ask me for the Number of Sheets I would like to be
Inserted.
Input Box 2 will ask me what the Number of the First New Sheets Tab is
to be.

If I was to ask for 50 Sheets to be Inserted and the Number of the
First Sheet was to be 901 for Example, the 50 Sheets Tabs would go from
901 to 950.
I would also like the Number of the Sheets Tab to be Placed in Cell A1
of EVERY Sheet as a Value.
Finally I would like the Sheet Named Master to be Copied to EVERY Sheet
and the Cursor to End Up in Cell B22 of EVERY Sheet.
It would also be Very Useful if the Sheets to be Inserted are Inserted
Directly After the Number of the Current Highest Sheet Number Used
Please.
I hope I have Explained this Clear Enough.

Thanks in Advance.
All the Best.
Paul

Hi Paul


I have it working on my example.

can't think what's wrong

drop me your e-mail address and i'll send this working version


http://www.excel-ant.co.uk


Paul Black wrote:
Thanks somethinglikeant,

It does Insert & Number the Sheet Tabs and put the Sheet Tab Number in
Cell A1 of EACH Sheet, but it does NOT Copy & Paste Anything from the
Sheet Named Master.

Thanks in Advance.
All the Best.
Paul

somethinglikeant wrote:
Yep

Here you a-

Sub SheetInsert()

x = InputBox("How many sheets would you like to add?", "Insert Sheets")
y = InputBox("What would you like the number of the first sheet to
be?", "Insert Sheets")

For i = 1 To x
Sheets.Add
ActiveSheet.Name = i + y - 1
pasteto = ActiveSheet.Name: Sheets("Master").Cells.Copy
Sheets(pasteto).[A1]
[A1] = i + y - 1
ActiveSheet.Move
After:=Sheets(Worksheets(Worksheets.Count).Name)
Next i

End Sub

send me an e-mail if you would like me to send the workbook I've been
working with.
unless, can you attach workbooks in google groups??

somethinglikeant

http://www.excel-ant.co.uk





Paul Black wrote:
Thanks for the Reply somethinglikeant,

I did want to Copy ALL of the Master Sheet to EACH of the New Sheets (
Because of Formatting and Column Widths etc ).
Would it be Easier to do this First and then put the Name of EACH Sheet
in Cell A1.

Thanks in Advance.
All the Best.
Paul

somethinglikeant wrote:
Paul,

here is the code I have span for you so far


Sub SheetInsert()

x = InputBox("How many sheets would you like to add?", "Insert Sheets")
y = InputBox("What would you like the number of the first sheet to
be?", "Insert Sheets")

For i = 1 To x
Sheets.Add
ActiveSheet.Name = i + y - 1
[A1] = i + y - 1
ActiveSheet.Move
After:=Sheets(Worksheets(Worksheets.Count).Name)
Next i

End Sub


the problem i have is knwoing how much of the master sheet you want to
coy.
I can't imagine it is everything else this would mean the code that
writes the sheet name to A1 of each cell is rendered useless. (It will
be overwritten)

let me know what range of the Master sheet you want copying and where
to in each sheet

somethinglikeant

http://www.excel-ant.co.uk






Paul Black wrote:
Hi Everyone,

I have a Sheet Named Master.
I would like 2 Input Boxes :-

Input Box 1 will ask me for the Number of Sheets I would like to be
Inserted.
Input Box 2 will ask me what the Number of the First New Sheets Tab is
to be.

If I was to ask for 50 Sheets to be Inserted and the Number of the
First Sheet was to be 901 for Example, the 50 Sheets Tabs would go from
901 to 950.
I would also like the Number of the Sheets Tab to be Placed in Cell A1
of EVERY Sheet as a Value.
Finally I would like the Sheet Named Master to be Copied to EVERY Sheet
and the Cursor to End Up in Cell B22 of EVERY Sheet.
It would also be Very Useful if the Sheets to be Inserted are Inserted
Directly After the Number of the Current Highest Sheet Number Used
Please.
I hope I have Explained this Clear Enough.

Thanks in Advance.
All the Best.
Paul

Hi somethinglikeant,

I have Copied & Pasted the Code again and Run it.
It does Not Copy ANY of the Data from the Sheet Named Master. I can't
Understand why?.
I don't Really want to Post my email Address for Obvious Reasons.

Thanks Again.
All the Best.
Paul

somethinglikeant wrote:
Hi Paul


I have it working on my example.

can't think what's wrong

drop me your e-mail address and i'll send this working version


http://www.excel-ant.co.uk


Paul Black wrote:
Thanks somethinglikeant,

It does Insert & Number the Sheet Tabs and put the Sheet Tab Number in
Cell A1 of EACH Sheet, but it does NOT Copy & Paste Anything from the
Sheet Named Master.

Thanks in Advance.
All the Best.
Paul

somethinglikeant wrote:
Yep

Here you a-

Sub SheetInsert()

x = InputBox("How many sheets would you like to add?", "Insert Sheets")
y = InputBox("What would you like the number of the first sheet to
be?", "Insert Sheets")

For i = 1 To x
Sheets.Add
ActiveSheet.Name = i + y - 1
pasteto = ActiveSheet.Name: Sheets("Master").Cells.Copy
Sheets(pasteto).[A1]
[A1] = i + y - 1
ActiveSheet.Move
After:=Sheets(Worksheets(Worksheets.Count).Name)
Next i

End Sub

send me an e-mail if you would like me to send the workbook I've been
working with.
unless, can you attach workbooks in google groups??

somethinglikeant

http://www.excel-ant.co.uk





Paul Black wrote:
Thanks for the Reply somethinglikeant,

I did want to Copy ALL of the Master Sheet to EACH of the New Sheets (
Because of Formatting and Column Widths etc ).
Would it be Easier to do this First and then put the Name of EACH Sheet
in Cell A1.

Thanks in Advance.
All the Best.
Paul

somethinglikeant wrote:
Paul,

here is the code I have span for you so far


Sub SheetInsert()

x = InputBox("How many sheets would you like to add?", "Insert Sheets")
y = InputBox("What would you like the number of the first sheet to
be?", "Insert Sheets")

For i = 1 To x
Sheets.Add
ActiveSheet.Name = i + y - 1
[A1] = i + y - 1
ActiveSheet.Move
After:=Sheets(Worksheets(Worksheets.Count).Name)
Next i

End Sub


the problem i have is knwoing how much of the master sheet you want to
coy.
I can't imagine it is everything else this would mean the code that
writes the sheet name to A1 of each cell is rendered useless. (It will
be overwritten)

let me know what range of the Master sheet you want copying and where
to in each sheet

somethinglikeant

http://www.excel-ant.co.uk






Paul Black wrote:
Hi Everyone,

I have a Sheet Named Master.
I would like 2 Input Boxes :-

Input Box 1 will ask me for the Number of Sheets I would like to be
Inserted.
Input Box 2 will ask me what the Number of the First New Sheets Tab is
to be.

If I was to ask for 50 Sheets to be Inserted and the Number of the
First Sheet was to be 901 for Example, the 50 Sheets Tabs would go from
901 to 950.
I would also like the Number of the Sheets Tab to be Placed in Cell A1
of EVERY Sheet as a Value.
Finally I would like the Sheet Named Master to be Copied to EVERY Sheet
and the Cursor to End Up in Cell B22 of EVERY Sheet.
It would also be Very Useful if the Sheets to be Inserted are Inserted
Directly After the Number of the Current Highest Sheet Number Used
Please.
I hope I have Explained this Clear Enough.

Thanks in Advance.
All the Best.
Paul

The problem is probably wordwrap

Sub SheetInsert()
Dim s1 as string, s2 as String
Dim x as Long, y as Long, i as Long
Dim pasteto as String
s1 = "How many sheets would you like to add?", "Insert Sheets"
s2 = "What would you like the number of the first sheet to be?"
x = InputBox(s1)
y = InputBox(s2, "Insert Sheets")

For i = 1 To x
Sheets.Add After:=Sheets(sheets.count)
pasteto = i + y - 1
ActiveSheet.Name = pasteto
With Sheets(pasteto)
Sheets("Master").Cells.Copy _
.Range("A1")
.Range("A1").Value = .Name
.Range("B22").Select
End With
Next i

End Sub

--
Regards,
Tom Ogilvy


"Paul Black" wrote in message
ps.com...
Hi somethinglikeant,

I have Copied & Pasted the Code again and Run it.
It does Not Copy ANY of the Data from the Sheet Named Master. I can't
Understand why?.
I don't Really want to Post my email Address for Obvious Reasons.

Thanks Again.
All the Best.
Paul

somethinglikeant wrote:
Hi Paul


I have it working on my example.

can't think what's wrong

drop me your e-mail address and i'll send this working version


http://www.excel-ant.co.uk


Paul Black wrote:
Thanks somethinglikeant,

It does Insert & Number the Sheet Tabs and put the Sheet Tab Number in
Cell A1 of EACH Sheet, but it does NOT Copy & Paste Anything from the
Sheet Named Master.

Thanks in Advance.
All the Best.
Paul

somethinglikeant wrote:
Yep

Here you a-

Sub SheetInsert()

x = InputBox("How many sheets would you like to add?", "Insert
Sheets")
y = InputBox("What would you like the number of the first sheet to
be?", "Insert Sheets")

For i = 1 To x
Sheets.Add
ActiveSheet.Name = i + y - 1
pasteto = ActiveSheet.Name: Sheets("Master").Cells.Copy
Sheets(pasteto).[A1]
[A1] = i + y - 1
ActiveSheet.Move
After:=Sheets(Worksheets(Worksheets.Count).Name)
Next i

End Sub

send me an e-mail if you would like me to send the workbook I've been
working with.
unless, can you attach workbooks in google groups??

somethinglikeant

http://www.excel-ant.co.uk





Paul Black wrote:
Thanks for the Reply somethinglikeant,

I did want to Copy ALL of the Master Sheet to EACH of the New
Sheets (
Because of Formatting and Column Widths etc ).
Would it be Easier to do this First and then put the Name of EACH
Sheet
in Cell A1.

Thanks in Advance.
All the Best.
Paul

somethinglikeant wrote:
Paul,

here is the code I have span for you so far


Sub SheetInsert()

x = InputBox("How many sheets would you like to add?", "Insert
Sheets")
y = InputBox("What would you like the number of the first sheet
to
be?", "Insert Sheets")

For i = 1 To x
Sheets.Add
ActiveSheet.Name = i + y - 1
[A1] = i + y - 1
ActiveSheet.Move
After:=Sheets(Worksheets(Worksheets.Count).Name)
Next i

End Sub


the problem i have is knwoing how much of the master sheet you
want to
coy.
I can't imagine it is everything else this would mean the code
that
writes the sheet name to A1 of each cell is rendered useless. (It
will
be overwritten)

let me know what range of the Master sheet you want copying and
where
to in each sheet

somethinglikeant

http://www.excel-ant.co.uk






Paul Black wrote:
Hi Everyone,

I have a Sheet Named Master.
I would like 2 Input Boxes :-

Input Box 1 will ask me for the Number of Sheets I would like
to be
Inserted.
Input Box 2 will ask me what the Number of the First New Sheets
Tab is
to be.

If I was to ask for 50 Sheets to be Inserted and the Number of
the
First Sheet was to be 901 for Example, the 50 Sheets Tabs would
go from
901 to 950.
I would also like the Number of the Sheets Tab to be Placed in
Cell A1
of EVERY Sheet as a Value.
Finally I would like the Sheet Named Master to be Copied to
EVERY Sheet
and the Cursor to End Up in Cell B22 of EVERY Sheet.
It would also be Very Useful if the Sheets to be Inserted are
Inserted
Directly After the Number of the Current Highest Sheet Number
Used
Please.
I hope I have Explained this Clear Enough.

Thanks in Advance.
All the Best.
Paul