Manually......................

Copy once then select both sheets and copy again then select the 4 sheets
and copy again

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

On Thu, 25 Sep 2008 07:48:07 -0700, DebC
wrote:

In Office 2003, when I right click a tab in a workbook and get the option of
'move or copy' is it possible to 'copy' a worksheet multiple times all at
once?