For each loop to create and name worksheets

Originally Posted by StephenR

What information do you want to show in A2-A5?

The corresponding data in Columns B & C.

I added

ws.Range("A2").Formula = "=VLOOKUP(A1,EmpNameRange,2,0)"

After your:

ws.Range("A1") = r

...which works just fine. I think you have me all set for now, Stephen. Thanks for taking the time to help me. Stay well!