Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Moving sheets to another file
I'm trying to move certain sheets to a selected file and getting a "..out of
range" error. Help? Sub SendData() Dim wb As String wb = ThisWorkbook.Activate Dim SendDataFname As String SendDataFname = Application.SendOpenFilename("Excel files (*.xls), *.xls") Workbooks.Open SendDataFname Sheets(Array("sheet2", "sheet3", "sheet4")).Move _ After:=Workbooks(wb).Sheets("sheet1") Windows(SendDataFname).Activate ActiveWorkbook.Save ActiveWindow.Close ThisWorkbook.Activate End Sub |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
Moving sheets to another file
Tim,
Change wb = ThisWorkbook.Activate To wb = ThisWorkbook.Name -- Cordially, Chip Pearson Microsoft MVP - Excel Pearson Software Consulting, LLC www.cpearson.com "TimT" wrote in message ... I'm trying to move certain sheets to a selected file and getting a "..out of range" error. Help? Sub SendData() Dim wb As String wb = ThisWorkbook.Activate Dim SendDataFname As String SendDataFname = Application.SendOpenFilename("Excel files (*.xls), *.xls") Workbooks.Open SendDataFname Sheets(Array("sheet2", "sheet3", "sheet4")).Move _ After:=Workbooks(wb).Sheets("sheet1") Windows(SendDataFname).Activate ActiveWorkbook.Save ActiveWindow.Close ThisWorkbook.Activate End Sub |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Moving Data between sheets in the same workbook and moving data between Workbooks. | Excel Worksheet Functions | |||
Moving sheets | Excel Programming | |||
Moving through sheets | Excel Discussion (Misc queries) | |||
Moving through sheets | Excel Programming | |||
moving between sheets | Excel Programming |