Yeah sorry, posted in general by mistake.
Think this works. Thank you very much for your help.
"Ron de Bruin" wrote:
See Misc group where you also post
Please use one group
Copy this macro in a new workbook and run it
Or do you want to use it in your personal.xls
Sub test()
Dim wb As Workbook
For Each wb In Application.Workbooks
If wb.Windows(1).Visible And wb.Path < "" And wb.Name < ThisWorkbook.Name Then
wb.Worksheets.Copy after:=ThisWorkbook.Sheets(ThisWorkbook.Sheets.Cou nt)
End If
Next
End Sub
--
Regards Ron de Bruin
http://www.rondebruin.nl
"Barry McConnell" wrote in message
...
My intranet won't let me access that site. Can you please give me the code Ron?
"Ron de Bruin" wrote:
See your other thread
--
Regards Ron de Bruin
http://www.rondebruin.nl
"Barry McConnell" wrote in message
...
Is there a small macro that will take all the worksheets from all open
workbooks and put them in one new consolidated workbook?
Thanks
Barry