For each loop to create and name worksheets

The range A2:A6 contains 5 names. I would like to loop through the names, create a worksheet, rename the worksheet the string name, and place the name in cell A1 of the newly created worksheet. Next Name. Continue process until all names have been analyzed.

Dummy worksheet attached.

Thanks!!!!!