View Single Post
  #5   Report Post  
Posted to microsoft.public.excel.programming
iamjbunni iamjbunni is offline
external usenet poster
 
Posts: 10
Default Second Click on Control Button

Thank you!

"Gord Dibben" wrote:

Private Sub CommandButton2_Click()
With Columns(2)
.EntireColumn.Hidden = Not .EntireColumn.Hidden
End With
Range("B1").Select
End Sub


Gord Dibben MS Excel MVP

On Tue, 1 Aug 2006 14:30:02 -0700, iamjbunni
wrote:

Greetings!

I made a control button that will unhide a column in a certain range using:

Private Sub CommandButton2_Click()
Columns("B").Select
Selection.EntireColumn.Hidden = False
Range("B1").Select
End Sub

How can I modify this to re-hide the column on the second click, or if it
his already unhidden?