1. “Tools†“Options†on the “View tab†click “Sheet tabsâ€.
2. Right click the Tab (at bottom of sheet) you want to copy.
3. Select move or copy (you can even choose where to place the copied sheet).
4. Rename the new sheet.
Lou
Sub SheetCopy22()
Dim i As Long
Application.ScreenUpdating = False
For i = 1 To 100
ActiveSheet.Copy Before:=Sheets(1)
Next i
Application.ScreenUpdating = True
End Sub