vba to sort multiple sheet tabs in a workbook

Hi All

I have a workbook with multiple sheets .

Looking for fast vba code to sort sheet names alphabetically.

Also note some sheets are alpha numeric that is 01_15_ Sodium Peroxide Analysis

Thanks