a couple of examles on how to do it once.

You would need to repeat code for multiple times or inclose in a FO
loop



Sub Macro1()
Dim wsData As Worksheet
Set wsData = ActiveSheet

Workbooks.Add
wsData.Cells.Copy
ActiveSheet.Paste

'your manipulation code here

ActiveWindow.Close savechanges:=False

End Sub

Sub Macro2()
Dim wsData As Worksheet
Set wsData = ActiveSheet

Workbooks.Add
wsData.Copy Befo=ActiveWorkbook.Sheets(1)
'your manipulation code here
ActiveWindow.Close savechanges:=False
End Su

--
Message posted from http://www.ExcelForum.com