Moving sheets

**thisandthat** · 11-14-2011, 09:33 PM

Hi,

I have a folder with 20 or so xlsx files each with only one sheet. I would like to move them all into one workbook. I would like to write a program to do this automatically since I have this feeling I might have to do this several times. I'm not to familiar with VBA or macros, but I've dabbled. I was hoping that someone could point me in the right direction.

Thanks

Jon

**alansidman** · 11-14-2011, 09:45 PM

Here is code to move one sheet in the current workbook to a workbook called Todo.xlsm. You can jsut add on to it for additional sheets. It puts into the new workbook after sheet1.

Sub Macro1()
'

    Sheets("Sheet3").Select
    Sheets("Sheet3").Move After:=Workbooks("ToDo.xlsm").Sheets(1)
End Sub

**thisandthat** · 11-15-2011, 08:47 PM

Found a real good program to do it here.
http://www.rondebruin.nl/txtcsv.htm
Thanks for the help

Moving sheets

LinkBack

Thread Tools

Rate This Thread

Display

Hybrid View

Moving sheets

Re: Moving sheets

Re: Moving sheets

Thread Information

Users Browsing this Thread

Bookmarks

Bookmarks

Posting Permissions