Option Explicit
Sub test()
Dim sh As Worksheet, arr(), n%, temp, i%, j%
For Each sh In Sheets
n = n + 1
ReDim Preserve arr(1 To n)
arr(n) = CInt(Mid(sh.Name, 3))
Next sh
For i = 1 To UBound(arr)
For j = i To UBound(arr)
If arr(i) > arr(j) Then
temp = arr(i)
arr(i) = arr(j)
arr(j) = temp
End If
Next j
Next i
For i = 1 To UBound(arr)
Sheets("CM" & arr(i)).Move after:=Sheets(Sheets.Count)
Next i
End Sub