Hi

I have looked around some and found several scripts to unhide all sheets, However is their a way to place them when they are unhiding.

Example the scripts will unhide sheet5 first which will place it in the Sheets(1) Position when all the sheets have been un hidden they are named Sheet5 to Sheet1. I want them to look like Sheet1 to Sheet4 or Sheet5

Maybe I can only select all the sheets w/ Sheet# names after they are unhidden and Sort them? Not Sure...

Here is the codes I'm Working with... Thanks as Always, Mike...

Sub UnHide()

            For Each WkSht In ActiveWorkbook.Worksheets
            Sheets(WkSht.Name).Visible = xlSheetVisible
            Next WkSht
     
     
End Sub
And
Sub ShowSheets()
Dim s As Worksheet
  For Each s In ActiveWorkbook.Worksheets
    s.Visible = True
  Next
End Sub