Help - Existing VBA routine to hide one column hides three?

[EssKayKay]

I have a worksheet were I’m attempting to hide Column H via a VBA routine. I have two subs, one to hide Column H; the other to unhide it. However, when I run the code to hide, it hides Column H plus the next two columns I&J. Running the routine to unhide column H unhides all three columns that where hidden. I can “manually” hide just column H but not via VBA. That is: select Column H only > click on highlighted Column H > right click mouse and select Hide.

Here’s my test code:

----------------- Hide Column H -----------------------

Sub Macro1()
Columns("H:H").Select
Selection.EntireColumn.Hidden = True
Range("C2").Select
End Sub
--------------------------------------------------------------

---------------- Unhide Column H ---------------------

Sub Macro2()
Columns("H:H").Select
Selection.EntireColumn.Hidden = False
Range("C2").Select
End Sub
--------------------------------------------------------------

 

[BigBeachBananas]

The issue might be due to the way Excel handles the selection of columns. When you select a column and hide it using VBA, Excel may also include adjacent columns in the selection.

Try:

Sub HideColumnH()
    Columns("H:H").Hidden = True
End Sub

PS: Please use the code tags.

 

[jolivanes]

Instead of having 2 macros, just toggle.

Range("H:H").EntireColumn.Hidden = Not Range("H:H").EntireColumn.Hidden

 

[EssKayKay]

The issue might be due to the way Excel handles the selection of columns. When you select a column and hide it using VBA, Excel may also include adjacent columns in the selection.

Try:

Sub HideColumnH()
    Columns("H:H").Hidden = True
End Sub

PS: Please use the code tags.

Perfect. Thank you once again BigBeach. This is working great. Much appreciated.
I will try to use code tags in the future. It's just that this old guy isn't the most proficient but I will get better.

 

[EssKayKay]

Instead of having 2 macros, just toggle.

Range("H:H").EntireColumn.Hidden = Not Range("H:H").EntireColumn.Hidden

Thank you Jolivanes, I will keep this in mind. For now I am going to use two separate routines but I will play with your code and see what happens
Again, thanks,
Steve