Sorting Worksheets With Various Naming Formats?

I have a workbook with worksheets that are named in various ways that I need a VBA macro to sort.

Some sheets have names that begin with numbers.

I am able to get the macro to sort them all alphabetically but those with numbers are always put at the start of the work book instead of within the alphabetical format I want to use

I may have sheet names like:

CAT 3CAT 1CAT 2CAT MONKEY DOG 4DOG 3DOG

This is how I want these sheets sorted:

CAT 1CAT 2CAT 3CAT DOG 3DOG 4DOG MONKEY

The sheet names are examples and not actual sheet names.

Below is my code so far

Code:
For lCount = 1 To lShtLast
For lCount2 = lCount To lShtLast And Not IsNumeric(Mid(UCase(Sheets(lCount).Name), 1, 1))
If UCase(Sheets(lCount2).Name) < UCase(Sheets(lCount).Name) Then

[Code].....