Macro to drag sheet forward by 1

[Tuckejam]

So im currently working with this work book that copys a set of columns from the summary worksheet then CTRL+pg down (to next worksheet) and pastes the data.

this works well but i need to then drag the summary worksheed to the next positon and run the macro again.

every time i try to record me draging the summary worksheet up one (using absolut or relitive) it shows the same (see below)

Sub Macro6()
'
' Macro6 Macro
'
'
    Sheets("Summary").Select
    Sheets("Summary").Move Before:=Sheets(10)
    Sheets("Summary").Select
    Sheets("Summary").Move Before:=Sheets(11)
End Sub

any way to make that Sheets("Summary").Move AHEAD ONE

or something like that?

thaks in advance for any help

 

[Momentman]

Something like this maybe

If Sheets("Summary").Index < ActiveWorkbook.Worksheets.Count Then
        Sheets("Summary").Move after:=Sheets(Sheets("Summary").Index + 1)
End If