Copying worksheets to a new workbook

[Guest]

Hi!
I am getting a debug error message on this line:
Next wSht
Sheets(1).Copy beofre:=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?

 

[Guest]

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.

 

[Guest]

I will try the changes you suggest. Thanks bigwheel!

 

[Guest]

Bigwheel,
I tried your script and the worksheet was copied into the existing file. I
need to move the copied worksheet to a new workbook all by it's lonesome
self. Suggestions?

 

[Guest]

Well, as an illustration try this:-

Sheets("Sheet3").Move After:=Workbooks("test2.xls").Sheets(3)

changing the sheet name and workbook name to suit your requirements, of
course.
The target worksheet needs to be open.