Forum Discussion
japlyn5355gmailcom
Sep 22, 2021Copper Contributor
list
Hi all, my first post and i know you can help me. I have 20+ single page excel sheets which are not in any particular order but i would like to put them in the order i want. Not alphabetically. How is this done please.
I use a Dell PC windows 10
I am using professional plus 2016
Thank you
Paul Lynch
2 Replies
- Juliano-PetrukioBronze Contributor
Welcome
Considering you have a Main worksheet where you list is saved (sort order list).
Sub SortSheetUsingAList() Dim i As Long With Sheets("Main") For i = .Range("A" & .Rows.Count).End(xlUp).Row To 1 Step -1 Sheets(.Cells(i, 1).Value).Move Before:=Sheets(1) Next i End With End SubFind attachment.
I'd just drag the sheet tabs to the position where you want them. Writing and testing a macro for this purpose would probably cost more time...