Macro needed to hide/unhide alternative columns in a spreadsheet

[hn018]

Hi

I am new to this and need some expert help, though to most of you this will be straight forward!

I've used the code I found below which works perfectly for a range of columns, except I need to adapt it to hide alternate columns in my sheet. For example I want to hide G, I, K and so on until BU.

Sub HideStuff()
With Columns("G:M")
If .Hidden Then
.Hidden = False
Else
.Hidden = True
End If
End With
End Sub

Thank you in advance. H

[Sintek]

Hi hno18

Welcome....
In future please view the forum rules before posting. Your post does not comply with rule #3.

3. Use code tags around code. Posting code without them makes your code hard to read and difficult to be copied for testing. Highlight your code and click the [#] button at the top of the post window.

Please Login or Register  to view this content.

Or

Please Login or Register  to view this content.

[Richard Buttrey]

I think Sintek missed the Unhide bit, so

Please Login or Register  to view this content.

[Sintek]

@ Richard....True Thanks.... I guess I misunderstood OP request.

For example I want to hide G, I, K and so on until BU.

[hn018]

Hello,

Sorry for not correctly pasting in the code. I hadn't even noticed the rules. Accept my apologies!

Thank you all for replying. However, when I put the code in Richard and run the macro it keeps coming up with the message 'object required'.

Not sure what this means or what I am doing wrong?

My sheets so far are named 'APR', 'MAY' and 'JUN'. Does that make a difference.

Thank you. H

[mikerickson]

To expand the OP code to the whole worksheet, I'd use

Please Login or Register  to view this content.

To start the "every other column hidden" process, one could use

Please Login or Register  to view this content.

[Richard Buttrey]

Hello,

Sorry for not correctly pasting in the code. I hadn't even noticed the rules. Accept my apologies!

Thank you all for replying. However, when I put the code in Richard and run the macro it keeps coming up with the message 'object required'.

Not sure what this means or what I am doing wrong?

My sheets so far are named 'APR', 'MAY' and 'JUN'. Does that make a difference.

Thank you. H

The code I gave you doesn't use sheet tab names. As an aside it's not considered good practice to use tab names since they are too easily changed. My code uses the VBA sheet code name. The code assumes that the sheet in question has the VBA code name of 'Sheet1'. Obviously if you've deleted or changed this at some time you'll get that message. Look to see what the VBA sheet code name is - you can see that in the VBA Project Window where yuo see references like

Sheet1(Sheet1)

Where the string in the () parentheses is the tab name.