I submitted a more complex version of this code previously, be here
is where what my problem is...

I have data in a form on one sheet in Workbook1 and I want to copy it
to a new sheet in a new workbook. Stepping thru it, it works all the
way up till the point I go to paste the data.

This is the code I have and I don't know why it's blowing up and,
more importantly, how to fix it.

Any suggestions????



Sub test()

Dim Wk As Workbook
Dim Wk2 As Workbook


Set Wk = ActiveWorkbook
Set Wk2 = Workbooks.Add



Wk.Activate
Sheets("Sheet1").Select
Cells.Select
Selection.Copy

Wk2.Activate
ActiveWorkbook.Worksheets.Add
ActiveSheet.Paste


End Sub