Userform List to Delete Sheets after specific sheet

[Kevchenk0]

Hello All,

I have created a button which brings up a userform (userform2) with a list and button on it. I need the contents of the List to be populated with all the sheet names which exist after the Performance Hub Sheet. On selection from the userform list I then need to be able to delete the selected sheet when hitting the userform button.

Any ideas on how I can make this work please?

[Arkadi]

Something like this?

Please Login or Register  to view this content.

If you don't want the warning about deleting the sheet, then you could use Application.DisplayAlerts = False before the delete line, and right after it set that back to True

[Kevchenk0]

Thanks for the reply. Just tried it but it throws up an error when I click the Delete Focus list button saying Compile error, Invalid outside procedure.

[Arkadi]

hmm doesn't sound right... did you paste ALL the code I posted into your userform?

[Arkadi]

If you missed a sub heading or end sub, that could cause that error. It usually means you have code that is not INSIDE a sub, but I didn't post any lines not inside a sub.
I can't test with that sheet because there is no sheet called Focus List on what you attached. However if I delete Maka 1 or PERFORMANCE HUB, the code worked perfectly.

[Kevchenk0]

My Bad Yes. I have now split the code and put the button code where it should be.
The user form doesn't find any values though just remains blank?

[Kevchenk0]

The Focus list is the sheet that is generated by another routine. Maka 1 is a focus list sheet and so is SUV AutoPolish. The idea is that I can create as many as I like and the userform list will identify them and allow me the option to delete if required.

[Kevchenk0]

So anything I add which is to the right of the performance hub sheet I need to have in the list and be able to select and delete.

[BadlySpelledBuoy]

Arkadi's code works for me, based on my interpretation of your need.

For what it's worth there are often many ways of accomplishing the same thing in Excel, especially when it comes to VBA.

With that in mind, here's my version of code to do what (I think) you mean.

Please Login or Register  to view this content.

See attached.

Does that do what you expect?

BSB

[BadlySpelledBuoy]

Note my code will display any sheet name that's not "PERFORMANCE HUB" and is not hidden. I would suggest you avoid relying on anything such as sheet tab order. It's very easy to accidentally move a sheet position in the tab list and that could throw the whole thing out.

BSB

[Arkadi]

There should be no need to "split" my code... it all goes inside the userform. If you put the initialize code in a standard module, it would not run, and nothing would load into the combobox.

[Kevchenk0]

Thanks Both for your help, yes this works great.

[Arkadi]

Thanks for the rep and feedback, and marking the thread as solved