soterer faneblade

Kun ved håndkraft.

Måske kan dette link hjælpe ... http://www.cpearson.com/excel/sortws.htm

Ja der er altid en løsning, spørgsmålet er bare om man har tid nok :-)

Men mange tak for svarene, jeg har sat en studenter medhjælper igang.

Velbekom

prøv:
Sub Makro1()
Dim sh(10)
Application.ScreenUpdating = False
For t = 1 To Sheets.Count
Cells(t, 200) = Sheets(t).Name
Next
Range("GR1:GR" & Sheets.Count).Select
Selection.Sort Key1:=Range("GR1"), Order1:=xlAscending
For t = 1 To Sheets.Count
sh(t) = Cells(t, 200): Cells(t, 200) = ""
Next
For t = 1 To Sheets.Count
Sheets(sh(t)).Move after:=Sheets(Sheets.Count)
Next
Cells(1, 1).Select
Application.ScreenUpdating = True
End Sub

Denne er nok lidt bedre :

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
  Sheets(sh(t)).Move after:=Sheets(Sheets.Count)
Next

Application.ScreenUpdating = True
End Sub

Jeg bruger ASAP-utilitis. Det kan gøre det. Det er et tilføjelsesprogram...

http://www.asap-utilities.com/download-asap-utilities.php

Du finder funktionen i ASAP-menuen, under punktet 'Sheets'

luk