Sub MakeSheets()
Worksheets("Sheet1").Activate
Howmany = WorksheetFunction.CountA(Range("A:A"))
sheetcount = Worksheets.Count
For j = 1 To Howmany
Worksheets.Add After:=Worksheets(sheetcount)
sheetcount = sheetcount + 1
Set wks = Worksheets(sheetcount)
wks.Name = Worksheets("Sheet1").Cells(j, 1).Value
Next j
End Sub


works for me
best wishes
--
Bernard V Liengme
Microsoft Excel MVP
http://people.stfx.ca/bliengme
remove caps from email

"Flumoxed" wrote in message
...
I am new to excel but have to set the following up:
I have a front sheet with student names on it. Then I have up to 44
sheets
behind this. I just want to be able to somehow get those names onto the
sheet tab at the bottom of the page in the same order as on the list then
use
this as a template.
So at the top of the list I have say Fred Bloggs: I need him to have his
name on the tab at the bottom instead of it saying "sheet 2" and then
second
on list as name on bottom of third sheet tab etc. The data on the sheets
that refer to sheet one has already been set up but I have to do this 24
times and I'm sure there must be a quicker way than typing it in by hand
each
time. Is there? Thank you very much.