Select Case possibly not working as intended. (Another strange bug)

**111StepsAhead** · 08-16-2013, 10:22 AM

I've made a test file to duplicate this issue. When you are looping through a variable to delete columns based on the header I can't get the select case statement to register the final column unless I add a useless variable. Let me show you what I mean.

Please Login or Register  to view this content.

The only difference between test and test2 is test2 has an extra variable on my "Select Case" statement. Now if you take a normal worksheet and label A1 = "red", B1 = "blue", and C1 = "green" then the Sub test will delete "red". If you run test2 the code will not delete "red".

Maybe there is a solution for this and maybe not. I am more interested in the reasoning why test fails and test2 works. Does anyone know what is going on?

**Norie** · 08-16-2013, 10:27 AM

Your Select Case isn't right.

It should probably be this as Header is Cells(1,x).

Please Login or Register  to view this content.

Oh, and you don't need the If Header = "" and the Goto.

**Andy Pope** · 08-16-2013, 10:40 AM

The actual test in your select are

Please Login or Register  to view this content.

The first condition in the select statement will evaluate to False which is valid but not met. I the second code set you have that test and all the available colours. So it works. In the first code set the test is

Please Login or Register  to view this content.

which evalutates to False except when x=1 then it evaluates to True. But at no time is "red" on it's own compared, which is why when red is tested the column is deleted.

As Noire suggested alter your case conditions.