software

I am wanting to copy a worksheet that is set up to show student results,
targets and achievements into approximately 150 other worksheets in the same
workbook. Is there a quick way of doing this other than copying and pasting?
I want formats, colours and column widths etc to stay the same. In other
words I want to produce about 150 identical copies of my layout as quickly as
possible with the minimum of effort.
I am using Excel 2003.
Thanks in advance for any help and advice offered

Right-click on the worksheet tab and select quot;Move or Copyquot;, then use the
dialog box that appears to specify where you want to paste the worksheet
copy. Be sure to check the box that says quot;Create a copyquot;. If you have data in
the worksheet that you don't want to have in the other worksheets, make one
copy of it, delete the data from the copy, and then use the copy to create
the other 149 worksheets.

GwenH
Master MOS

quot;Mick Mquot; wrote:

gt; I am wanting to copy a worksheet that is set up to show student results,
gt; targets and achievements into approximately 150 other worksheets in the same
gt; workbook. Is there a quick way of doing this other than copying and pasting?
gt; I want formats, colours and column widths etc to stay the same. In other
gt; words I want to produce about 150 identical copies of my layout as quickly as
gt; possible with the minimum of effort.
gt; I am using Excel 2003.
gt; Thanks in advance for any help and advice offered

Mick

What do you want to name these sheets?

There are several variations of code to copy one worksheet many times but
usually these 150 copies each get a name.

Here's code from Dave Peterson that assumes you have a list of names in
Column A on a sheet named quot;listquot;.

Say quot;Student_1quot; through quot;Student_150quot; in A1:A150

The sheet to be copied is named quot;Templatequot;

Sub testme01()
'Dave Peterson
Dim TemplateWks As Worksheet
Dim ListWks As Worksheet
Dim ListRng As Range
Dim myCell As Range
Set TemplateWks = Worksheets(quot;Templatequot;)
Set ListWks = Worksheets(quot;listquot;)
With ListWks
Set ListRng = .Range(quot;a1quot;, .Cells(.Rows.Count, quot;Aquot;).End(xlUp))
End With

For Each myCell In ListRng.Cells
TemplateWks.Copy After:=Worksheets(Worksheets.Count)
On Error Resume Next
ActiveSheet.Name = myCell.Value
If Err.Number lt;gt; 0 Then
MsgBox quot;Please fix: quot; amp; ActiveSheet.Name
Err.Clear
End If
On Error GoTo 0
Next myCell
End SubGord Dibben Excel MVP

On Tue, 20 Dec 2005 12:59:02 -0800, Mick M lt;Mick gt;
wrote:

gt;I am wanting to copy a worksheet that is set up to show student results,
gt;targets and achievements into approximately 150 other worksheets in the same
gt;workbook. Is there a quick way of doing this other than copying and pasting?
gt;I want formats, colours and column widths etc to stay the same. In other
gt;words I want to produce about 150 identical copies of my layout as quickly as
gt;possible with the minimum of effort.
gt;I am using Excel 2003.
gt;Thanks in advance for any help and advice offered