Sorting Sheets By Name

I need to sort my sheets by name, A-Z but as the worksheet names are things like Door 1, Door D67, Door 100 etc, I don't think I can use a simple code like the below, Because i'd end up with Door 1, Door 100, Door 101, Door 2, Door 200......

Code:

Sub Sort_Active_Book()
Application.ScreenUpdating = False
Dim i As Integer
Dim j As Integer

[Code] .......

I have this code, which sorts a list of data in cell C17 down to CXXX (the list will keep growing as I add more doors) It works by pasting a formula stored in F17, in Col D, next to my list of doors, and picks out the numbers so that I can sort.

Code:

Sub ListSorter()
Dim LastRow As Long
LastRow = Range("C" & Rows.Count).End(xlUp).row
Range("F17").Copy Range("D17")
Application.CutCopyMode = False

[Code] .......

Perhaps I could add some code to the bottom of this, that will sort my worksheet names as per the order of my list in col C?