How do I auto expand hidden rows or columns?

I

iamjbunni

I am creating a presentation and I am including 3 topics. I want to allow
the user to expand the hidden columns with a single click and hide them again
when they are done viewing that portion. How do I do this?

Thank you for your time!
 
D

Don Guillett

Sub togglehideunhidecolumns()
Columns("b:d").Hidden = True = Not Columns("b:d").Hidden
End Sub
 
Top