For each loop to create and name worksheets

Originally Posted by StephenR

Try this:

Sub x()

Dim ws As Worksheet, r As Range

With Sheets("Sheet1")
    For Each r In .Range("A2", .Range("A" & Rows.Count).End(xlUp))
        Set ws = Worksheets.Add(after:=Sheets(Sheets.Count))
        ws.Name = r
        ws.Range("A1") = r
    Next r
End With
        
End Sub

This was perfect. Thanks! How could I modify to have it, in addition to naming the sheet and placing the same name in A1, pre-populate A2-A5 of each worksheet with a VLOOKUP referencing the array EmpNameRange? Or would a different code suffice to pull the information x number of columns out during the process you set out previously?

Revised excel attached.