Use ListIndex to set Sheet order?

[Stuart]

Listbox1 contains the names of sheets in the activeworkbook
which have been sorted by the user into the order they would
like them to appear in the workbook.

How can I use this to set the sheet order, please?

Regards.

 

[Shailesh Shah]

Hi Stuart,

Try this

For i = 0 To ListBox1.ListCount - 1
Sheets(ListBox1.List(i)).Move before:=Sheets(i + 1)
Next



Regards,
Shah Shailesh
http://members.lycos.co.uk/shahweb/
(Excel Add-ins)

 

[Stuart]

Many thanks, works fine.

Regards.

Hi Stuart,

Try this

For i = 0 To ListBox1.ListCount - 1
Sheets(ListBox1.List(i)).Move before:=Sheets(i + 1)
Next



Regards,
Shah Shailesh
http://members.lycos.co.uk/shahweb/
(Excel Add-ins)