Have a look at the following link:-
If you want to add the workbook name, you'll only need to adjust this line:-
Sheets(iSheetCount).Name = iSheetCount
For example, if your workbook is named Fred, then alter the line as follows:-
Sheets(iSheetCount).Name = "Fred, Sheet" & iSheetCount
Your worksheet tabs should then look like this:-
"Fred, Sheet1", "Fred, Sheet2" etc......