One file has over 50 worksheets and I would like to reverse their order.
Sharing macro to do this automatically would be greatly appreciated.

Thanks,

Ibro V.

Sub reverse()
Dim i As Long

With ActiveWorkbook
For i = .Worksheets.Count - 1 To 1 Step -1
Worksheets(i).Move after:=.Worksheets(.Worksheets.Count)
Next i
End With

End Sub


--

HTH

RP
(remove nothere from the email address if mailing direct)


"Ibro Vehabovic" wrote in message
...
One file has over 50 worksheets and I would like to reverse their order.
Sharing macro to do this automatically would be greatly appreciated.

Thanks,

Ibro V.

Thanks Bob

Ibro V.

"Bob Phillips" wrote in message
...
Sub reverse()
Dim i As Long

With ActiveWorkbook
For i = .Worksheets.Count - 1 To 1 Step -1
Worksheets(i).Move after:=.Worksheets(.Worksheets.Count)
Next i
End With

End Sub


--

HTH

RP
(remove nothere from the email address if mailing direct)


"Ibro Vehabovic" wrote in message
...
One file has over 50 worksheets and I would like to reverse their order.
Sharing macro to do this automatically would be greatly appreciated.

Thanks,

Ibro V.

that was pretty cool, bob

--


Gary


"Bob Phillips" wrote in message
...
Sub reverse()
Dim i As Long

With ActiveWorkbook
For i = .Worksheets.Count - 1 To 1 Step -1
Worksheets(i).Move after:=.Worksheets(.Worksheets.Count)
Next i
End With

End Sub


--

HTH

RP
(remove nothere from the email address if mailing direct)


"Ibro Vehabovic" wrote in message
...
One file has over 50 worksheets and I would like to reverse their order.
Sharing macro to do this automatically would be greatly appreciated.

Thanks,

Ibro V.