Tabellen sortiere und nach wert in zelle

Sub Tabellenblätter_sortieren()
Dim Cnt As Integer
Dim N As Integer
Dim M As Integer
On Error GoTo EndOfMacro
Application.ScreenUpdating = False
Cnt = ActiveWorkbook.Worksheets.Count
For M = 1 To Cnt
For N = M To Cnt
If UCase(Worksheets(N).Name) 

Nun möchte ich gern die Tabellenblätter nach dem Wert aus den Tabellen
mit sortieren.
Zelle "L1" steht entweder 00 oder 07 etc. jetzt sollten alpha. die Blätter erst mit 00 und dann alph. die
Blätter mit 07 kommen, geht sowas ?
herzlichst walli