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.