VbA Delete sheets

Question

I am trying to delete all the sheets which do not equal specific code names but instead of doing that, my code is deleting the sheets that I want to keep.the coding is below:

For each ws In wb.worksheets

If ws.CodeName <> “Tasks_Complete” And ws.CodeName <> “Issues_Tasks” Then
ws.Delete
End If

Next ws

Instead it deletes the sheets with the code names and keep the sheet that I do not want. Am I missing something from the code?

Do you have those "smart quotes" in your actual code? Otherwise that looks fine. — Tim Williams
– Tim Williams, Commented Jun 20, 2022 at 23:12
@TimWilliams, ye I have the smart quotes. I figured how to do it, I changed it to ws.Name <> Tasks_Complete.Name Then ws.Delete and it worked for me — 0726
– 0726, Commented Jun 20, 2022 at 23:16
Just for clarity, Tim is saying that your quote character “ is different than the default quote character " — Marcucciboy2
– Marcucciboy2, Commented Jun 20, 2022 at 23:57

Tim Williams · Accepted Answer · 2022-06-20 23:18:19Z

1

You have "smart quotes" in your posted code - those are not the same as regular double-quotes.

Select Case is maybe easier to read:

For each ws In wb.worksheets
    Select case ws.CodeName
        Case "Tasks_Complete", "Issues_Tasks"  'do nothing
        Case Else: ws.Delete
    End select
Next ws

answered Jun 20, 2022 at 23:18

Tim Williams

169k8 gold badges104 silver badges143 bronze badges

Sign up to request clarification or add additional context in comments.

Collectives™ on Stack Overflow

VbA Delete sheets

1 Answer 1

Comments

Your Answer

Hot Network Questions

Collectives™ on Stack Overflow

1 Answer 1

Comments

Your Answer

Sign up or log in

Post as a guest

Related