well i recorded a macro to unhide sheets week1 to week 12 and the standings sheet, then to make a copy of them and to the end of the list of sheets, then to rehide the orginals. ive done this but i have a bug apparenly and so now im lost...

'
Sheets("Week1").Visible = True
Sheets("Week2").Visible = True
Sheets("Week3").Visible = True
Sheets("Week4").Visible = True
Sheets("Week5").Visible = True
Sheets("Week6").Visible = True
Sheets("Week7").Visible = True
Sheets("Week8").Visible = True
Sheets("Week9").Visible = True
Sheets("Week10").Visible = True
Sheets("Week11").Visible = True
Sheets("Week12").Visible = True
Sheets("Standings").Visible = True
Sheets(Array("Week1", "Week2", "Week3", "Week4", "Week5", "Week6", "Week7", "Week8", _
"Week9", "Week10", "Week11", "Week12", "Standings")).Select
Sheets("Standings").Activate
Sheets(Array("Week1", "Week2", "Week3", "Week4", "Week5", "Week6", "Week7", "Week8", _
"Week9", "Week10", "Week11", "Week12", "Standings")).Copy befo=Sheets(17)
Sheets("Standings").Select
ActiveWindow.ScrollWorkbookTabs Position:=xlFirst
Sheets(Array("Week1", "Week2", "Week3", "Week4", "Week5", "Week6", "Week7", "Week8", _
"Week9", "Week10", "Week11", "Week12", "Standings")).Select
Sheets("Standings").Activate
ActiveWindow.SelectedSheets.Visible = False
Sheets("Week1 (2)").Select
Range("A1").Select
End Sub

the bit it sights as a bug is in bold, anyone got any ideas and again a big thanks in advance


and i kno about the 'befo' but that was my fault it should read 'before'