Excel worksheet auto generator

Sub generateTimeSheets()

Dim sMasterNameSheet As String ' name of the sheet which has employee information
Dim sTimeSheetTempate As String ' name of the sheet which is timecard template

Dim iMaxNameCol As Integer 'the column number under which there  are most populated rows
Dim lMaxNameRow As Integer

Dim sTemp As String ' a temp variable

Dim vWarning As Variant 'warning for deletion




'#####################################################
' CUSTOMIZE HERE TO SUIT YOUR NEED
'####################################################


    sMasterNameSheet = "Names" 'this is the name of the sheet which has employee info
    sTimeSheetTempate = "Timesheet Template" 'this is the name of the sheet which is timesheet template
    
Dim iNameCol As Integer 'which col in employee information sheet, has name information (add similiary other columns)
Dim sEmpName As String 'name of the employee
        
    iMaxNameCol = 1 ' this column on employee sheet has maximum number of rows filled in
    iNameCol = 1 'this is the column where employee name is found
    
    
    vWarning = MsgBox("This will delete all sheets except " _
                        & sMasterNameSheet & " and " & sTimeSheetTempate _
                        & ". Press Yes to conitnue", vbCritical + vbDefaultButton2 + vbYesNo)
    
    'do not wish to continue
    If vWarning <> vbYes Then Exit Sub
        
    
    ' to delete all but the two sheets
    'move thru all sheets in book
    For Each mysheet In Sheets
    
        'sheet being examined in the loop
        sTemp = mysheet.Name
        
        'if sheet examine is not two critical sheet then delete it
        If ((UCase(Trim(sTemp)) <> UCase(Trim(sMasterNameSheet))) And _
            (UCase(Trim(sTemp)) <> UCase(Trim(sTimeSheetTempate)))) Then
            
            mysheet.Delete
        End If
        
    Next
    
    Sheets(sMasterNameSheet).Select
    
    'find out the maximu number of rows
    lMaxNameRow = Cells(65536, iMaxNameCol).End(xlUp).Row
    
    sTemp = sTimeSheetTempate
    
    For lThisRow = 2 To lMaxNameRow
        sEmpName = Cells(lThisRow, iNameCol)
        sEmpName = Trim(sEmpName)
        
        If (sEmpName <> "") Then
        
            Sheets(sTimeSheetTempate).Select
            Sheets(sTimeSheetTempate).Copy After:=Sheets(sTemp)
            ActiveSheet.Name = sEmpName
            sTemp = sEmpName
            
            'here you have to make the fixes
            ' in this sample line it is saying that on the newly copied template, in its cell A1
            'put the value found in Column A of employee sheet
            Sheets(sEmpName).Range("A1") = Sheets(sMasterNameSheet).Range("A" & lThisRow)
        End If
nextFor:
    Next
    
End Sub