Hi Everyone,

What I would like to do is Insert 100 WorkSheets in a WorkBook.
The WorkSheets should be Named 1 to 100.
I then want to Copy the WorkSheet "Master" ( Inside the Same WorkBook )
to EACH of the Sheets.
I would like Cell "A1" of EACH WorkSheet to Contain the Sheet Name ( 1
to 100 ).

I have Come up with the Following Code that does Not Work Properly.

Option Explicit
Option Base 1

Sub Test()
Dim i As Integer

Application.ScreenUpdating = False

For i = 1 To 100
Sheets.Add
Sheets("Master").Select
Cells.Select
Selection.Copy
Sheets(i).Paste
Next i

Application.ScreenUpdating = True

End Sub

Any Help will be Greatly Appreciated.
Thanks in Advance.
All the Best.
Paul