Create a new sheet based on a Cells value

[usafmeinweg]

Hey all,
I have a main sheet with personnel and some data. Each person should get a separate sheet name ex: "Kent, Clark" on main sheet should have a sheet named "Kent-Log" in the same workbook.
I have a template setup already for Kent. What I am looking to do is when I enter a new persons name(Last, First) on the main sheet, i want VBA to copy "Kent-Log" and rename to "Last-Log". I have several people to add and am trying to avoid -copy ->move to end--> rename

Any help is greatly appreciated.

[mdbct]

The following will create a new sheet for every entry in column A from row 2 on down on a sheet called Main. If the sheet already exists, the name will be skipped.

Sub addSheets()
    Dim strName As String, strNew As String
    Dim sMain As Worksheet
    Set sMain = Sheets("Main")
    Dim i As Long
    i = 2
    Do Until sMain.Cells(i, 1) = ""
        On Error Resume Next
        strName = sMain.Cells(i, 1)
        strNew = Left(strName, InStr(strName, ",") - 1) & "-" & "Log"
        If Not Sheets(strNew).Index > 0 Then
            Sheets("Kent-Log").Copy after:=Sheets(Sheets.Count)
            ActiveSheet.Name = strNew
        Else
            'do nothing
        End If
        Err.Clear
        i = i + 1
    Loop
End Sub

[usafmeinweg]

Thanks. Worked like a charm