Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Copy multiple sheets using a list box
I'm trying to copy multiple sheets from one workbook to a new workbook. The problem is that I'm trying to copy sheets one at a time using a loop. The list box changes when the user enters different sheet names into the list box. So far I have tried: intcopy = 0 For intcopy = 0 To listbox1.Index Sheets(Array(listbox1.List(intcopy))).Copy intcopy = intcopy + 1 Next With this code I get a 'Subscript of of range' error. I'd like the selected sheets be put into one new workbook. Any suggestions? -- kev_06 ------------------------------------------------------------------------ kev_06's Profile: http://www.excelforum.com/member.php...o&userid=35046 View this thread: http://www.excelforum.com/showthread...hreadid=548008 |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
Copy multiple sheets using a list box
Try
Dim Ndx As Long With Me.ListBox1 For Ndx = 0 To .ListCount - 1 If .Selected(Ndx) = True Then Worksheets(.List(Ndx)).Copy after:=Worksheets(Worksheets.Count) End If Next Ndx End With -- Cordially, Chip Pearson Microsoft MVP - Excel Pearson Software Consulting, LLC www.cpearson.com "kev_06" wrote in message ... I'm trying to copy multiple sheets from one workbook to a new workbook. The problem is that I'm trying to copy sheets one at a time using a loop. The list box changes when the user enters different sheet names into the list box. So far I have tried: intcopy = 0 For intcopy = 0 To listbox1.Index Sheets(Array(listbox1.List(intcopy))).Copy intcopy = intcopy + 1 Next With this code I get a 'Subscript of of range' error. I'd like the selected sheets be put into one new workbook. Any suggestions? -- kev_06 ------------------------------------------------------------------------ kev_06's Profile: http://www.excelforum.com/member.php...o&userid=35046 View this thread: http://www.excelforum.com/showthread...hreadid=548008 |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Top 20 list from multiple sheets | Excel Discussion (Misc queries) | |||
Copy data to multiple sheets | Excel Worksheet Functions | |||
Copy & Past from multiple sheets to one | Excel Programming | |||
Multiple sheets selection and copy | Excel Programming | |||
Copy from Multiple Sheets | Excel Programming |