Hello

I have a wide table (250 columns). The first 4 columns are a frozen pane.
When I run any of a series of macros (see a sample below), some columns are
hidden while others are shown.

I have 2 concerns:

a) When I run the macro, the screen flickers for a second during execution.
No big deal, but I'd prefer it to not do this. Is my code inefficient, or
is there some way to prevent this?

b) All of the macros work in any combination, but sometimes I can't see the
non-hidden columns immediately because they are too far off to the left. I
can fix this by moving the slider on the bottom right of the screen all the
way left. How can I get the code to do this?

Thank you in advance


Sub ShowTest_A_Results()
Dim TableEndCol As Integer
TableEndCol = 250

For N = 5 To TableEndCol
Select Case N
Case 5 To 27, 32 To 68, 75 To 123, 128, 130 To TableEndCol
Columns(N).Hidden = True
Case Else
Columns(N).Hidden = False
End Select
Next
End Sub