Hi!
I am getting a debug error message on this line:
Next wSht
Sheets(1).Copy beof=Sheets(1)
Sheets(1).Name = shtName

Sheets(shtName).Move = Workbook : This is line.

I changed it from the original code and I cannot see the error of my ways.
The macro does take the active worksheet and creates a new workbook but the
error message comes up before I can continue to work with the data.

Can anyone help?