|Well, I kind of answered your question in my first response.|
If you are happy with the code you are using to sort a specific sheet ("Bill") then put your code inside a For-Next loop and replace "Bill" with the variable used in the loop.
One word of caution: In your code, you sometimes refer to the sheet by Name:
and sometime you don't:
If you are going to try and access multiple sheets, you should always refer to each sheet specifically, otherwise the code will try to access the ActiveSheet.
For ShtNum = 1 to Sheets.Count