This instruction usually takes the form:

Worksheets("Sheet1").Move after:=Worksheets("Sheet3")

I would guess there's something missing from your errant line of code i.e.
to where should it be moved.


"csimont" wrote:

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?