Help with Sheet Name Please
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
|