Automatically Generate Passwords For Multiple Sheets

I have a workbook in which users record the time spent on various activities. I have some code which will copy the worksheet template and create a worksheet for each user (in a defined list of names). Then each worksheet needs to be password protected so only the user can see it (I can do this individually by manually writing in each sheet name and setting a password but will have 80+ users for some groups and it will take ages...)

What I would like to be able to do is also automatically generate a password for each user (combining a word and automatic number e.g. "EMidsTeam123") it may be possible to insert this into the code I already have (which I have copied )...

VB:

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
Dim strPass As String
Dim lCount As Long
If Sh.CodeName <> "Sheet1" Then
'Set sLast variable to the last active sheet This is then used to return the user to the last sheet they were

[Code]....