Thread: Copy multiple sheets using a list box
View Single Post
  #1   Report Post  
Posted to microsoft.public.excel.programming
kev_06[_3_] kev_06[_3_] is offline
external usenet poster
  
Posts: 1
Default 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

Reply With QuoteReply With Quote