Unhide/Hide a column set together Excel

Hello All,

I am trying to unhide/ hide a set of columns - unhide / hide with an ActiveX checkbox in excel 2007.

Private Sub Info1_Click()
If Info1 = True Then

    Columns("D1:G1").Select
    Selection.EntireColumn.Hidden = False
   
    Else:
    Columns("D1:G1").Select
    Selection.EntireColumn.Hidden = True

End If

End Sub

But this code is giving me errors, any ideas? I have attached the excel file.

Thank you
R
Nextbutton-r12.xlsm
RayneAsked:
Who is Participating?
I wear a lot of hats...

"The solutions and answers provided on Experts Exchange have been extremely helpful to me over the last few years. I wear a lot of hats - Developer, Database Administrator, Help Desk, etc., so I know a lot of things but not a lot about one thing. Experts Exchange gives me answers from people who do know a lot about one thing, in a easy to use platform." -Todd S.

gplanaCommented:
Hi. Which errors are you getting ? I think this could help to solve the problem.

Thanks.
RayneAuthor Commented:
Hello

I get this Run-time Error 1004.

Debugging highlights this line;

Columns("D1:G1").Select
RayneAuthor Commented:
Any guess??
Big Business Goals? Which KPIs Will Help You

The most successful MSPs rely on metrics – known as key performance indicators (KPIs) – for making informed decisions that help their businesses thrive, rather than just survive. This eBook provides an overview of the most important KPIs used by top MSPs.

Tommy KinardCommented:
I got this to work

Private Sub Info1_Click()
    If Info1 = True Then
        Columns("D:G").EntireColumn.Hidden = False
    Else
        Columns("D:G").EntireColumn.Hidden = True
    End If
End Sub

Experts Exchange Solution brought to you by

Your issues matter to us.

Facing a tech roadblock? Get the help and guidance you need from experienced professionals who care. Ask your question anytime, anywhere, with no hassle.

Start your 7-day free trial
RayneAuthor Commented:
Thanks Dragon, mush appreciated
RayneAuthor Commented:
i meant much ;)
Tommy KinardCommented:
LOL no reason to be mushy :)

Thanks for the points and the grade!
RayneAuthor Commented:
no problem :)
It's more than this solution.Get answers and train to solve all your tech problems - anytime, anywhere.Try it for free Edge Out The Competitionfor your dream job with proven skills and certifications.Get started today Stand Outas the employee with proven skills.Start learning today for free Move Your Career Forwardwith certification training in the latest technologies.Start your trial today
Microsoft Office

From novice to tech pro — start learning today.