Jim,

Sheets("CurrentMasterHours").Copy befo=Sheets("CurrentMasterHours")
ActiveSheet.Name = Location

HTH
Henry


"Jim" wrote in message
. ..
With the macro shown below, which works ok, the copied sheet
using the Copy before method, always go back to the start of the
Worksheets,
which has
now got 16 sheets in the workbook and increases each month.
For the sake of convenience it would be nice for it to go back 1 worksheet
only.
ie before CurrentMasterHours worksheet.
Help please
Jim


<<<Dim Location
On Error Resume Next
Worksheets("CurrentMasterHours").Select
Location = InputBox("Enter Archive Name to be Stored, eg Sept
'99",
"Time Sheets - Archival Transfer")
If Location = "" Then
Exit Sub
Else
Sheets("CurrentMasterHours").Copy befo=Sheets(1)
Sheets(1).Name = Location
End If
On Error GoTo 0
End Sub