[quote=Gord Dibben;729127]

Via VBA....................

Asign this macro to button or shortcut key combo.

Sub SheetCopy()
Dim i As Long
On Error GoTo endit
Application.ScreenUpdating = False
shts = InputBox("How many times", , 3) '3 is default
For i = 1 To shts
ActiveSheet.Copy After:=ActiveSheet
Next i
Application.ScreenUpdating = True
endit:
End Sub


Gord Dibben MS Excel MVP

This works great but want to use this macro plus number the tabs sequentially while copying the tabs without the (#) in the name. ie. tab1, tab2, tab3 or abc1 abc2 abc3 abc4 etc