Hi,
The attached file have the coding for deleting the multiple sheets in a excel book.
But if the number sheet is more than 30 or 40, than this is not working out as it is required some corrections.
Pls check and do the necessary correction to delete 'n' number sheets in a single workbook
The code deletes 3 sheet which are specified in the array list.vaNames = Array("Sheetname1", "Sheetname2", "Sheetname3")
If you want to delete all sheets.
Please Login or Register to view this content.
Hi, AB33,
you canīt delete all sheets in a workbook - by default one needs to remain.
@BALA1983:
Ciao,Please Login or Register to view this content.
Holger
Use Code-Tags for showing your code: [code] Your Code here [/code]
Please mark your question Solved if there has been offered a solution that works fine for you
Hi Holger!
Good catch!
Please Login or Register to view this content.
I don't wanna to delete all the sheets. my requirement is to delete specified number of sheets. But in my coding if i put more number of sheet names (40 - 50 Sheetnames), then it will automatically come down to second line. There i am finding difficulty.
To be very simple i want to delete 500 sheets. where excel book has 1000 sheets.
Pls help me in this regard
Hi, BALA1983,
I think thatīs the wrong way around, I would check those sheets I need inside the workbook and delete the other ones.
Regarding your question about continuation. This can be done with an underscore like this:
Ciao,Please Login or Register to view this content.
Holger
Does this help??
Please Login or Register to view this content.
What do you mean by 'come down to second line' - are you having problems with the length of the array wrapping in the VBE?Originally Posted by BALA1983
If this is the issue, you can declare your array as follows:
Might it not be easier to maintain the list of sheet names for deletion in a worksheet range, and loop through each cell in that range?Please Login or Register to view this content.
let Source = #table({"Question","Thread", "User"},{{"Answered","Mark Solved", "Add Reputation"}}) in Source
If I give you Power Query (Get & Transform Data) code, and you don't know what to do with it, then CLICK HERE
Walking the tightrope between genius and eejit...
Thanks this is working now...
For completeness, can you tell us what made it work?
There are currently 1 users browsing this thread. (0 members and 1 guests)
Posting Permissions
LinkBack URL
About LinkBacks
Register To Reply
Bookmarks