Sortering af faneblad

Hvilken kolonne skal der sorteres efter i de "numeriske faneblade"?

Forslag:
Koden anbringes i ThisWorkbook
==============================

Private Sub workbook_activate()
    For Each fb In ActiveWorkbook.Sheets
        If IsNumeric(fb.Name) = True Then
            udførSortering fb.Name
        End If
    Next fb
End Sub
Private Sub udførSortering(arkNavn)
    ActiveWorkbook.Sheets(arkNavn).Select
   
    Cells(1, 1).Select
    Range(Selection, ActiveCell.SpecialCells(xlLastCell)).Select
    område = Selection.Address
 
rem Der sorteres efter kolonne.....<A> - kan justeres
    Range(område).Sort Key1:=Range("A1"), Order1:=xlAscending, Header:= _
        xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
        DataOption1:=xlSortNormal
End Sub

Koden placerer ark med numre samlet til højre for øvrige ark

Sub SortArk()
Dim sh()
ReDim sh(Sheets.Count)
Application.ScreenUpdating = False

For t = 1 To Sheets.Count
  sh(t) = Sheets(t).Name
Next

For t = 1 To Sheets.Count
  For tt = t To Sheets.Count
    If sh(t) > sh(tt) Then x = sh(t): sh(t) = sh(tt): sh(tt) = x
  Next
Next

For t = 1 To Sheets.Count
If IsNumeric(sh(t)) Then Sheets(sh(t)).Move After:=Sheets(Sheets.Count)
Next

Application.ScreenUpdating = True
End Sub

Takker