Hi Stuart,
Try this
For i = 0 To ListBox1.ListCount - 1
Sheets(ListBox1.List(i)).Move befo=Sheets(i + 1)
Next
Regards,
Shah Shailesh
http://members.lycos.co.uk/shahweb/
(Excel Add-ins)
*** Sent via Developersdex
http://www.developersdex.com ***
Don't just participate in USENET...get rewarded for it!