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

--
Don Guillett
SalesAid Software

"iamjbunni" wrote in message
...
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!