Toggle Button
 

I have a toggle button that I would like to unhide some columns and remove a
border line on the first click. On the second click, I would like for it to
rehide the same columns and put the line back. I thought that I had this
figured out. Please help. This is what I have so far:

Private Sub ToggleButton1_Click()
ActiveSheet.Range(€œC:E€�).EntireColumn.Hidden=F alse
ActiveSheet.Range("F:F").Borders(xlEdgeLeft).LineS tyle = xlNone
Not.ActiveSheet.Range€œC:E€�).EntireColumn.Hidde n=True
Not.ActiveSheet.Range("F:F").Borders(xlEdgeLeft).W eight = xlThin
End Sub

Toggle Button
 

Private Sub ToggleButton1_Click()
If ToggleButton1.Value = False Then
Me.Range("C:E").EntireColumn.Hidden = False
Me.Range("F:F").Borders(xlEdgeLeft).LineStyle = xlNone
Else
Me.Range("C:E").EntireColumn.Hidden = True
Me.Range("F:F").Borders(xlEdgeLeft).Weight = xlThin
End If
End Sub
--
Jim Cone
Portland, Oregon USA



"William"
wrote in message
I have a toggle button that I would like to unhide some columns and remove
a border line on the first click. On the second click, I would like for it to
rehide the same columns and put the line back. I thought that I had this
figured out. Please help. This is what I have so far:

Private Sub ToggleButton1_Click()
ActiveSheet.Range(€œC:E€�).EntireColumn.Hidden=F alse
ActiveSheet.Range("F:F").Borders(xlEdgeLeft).LineS tyle = xlNone
Not.ActiveSheet.Range€œC:E€�).EntireColumn.Hidde n=True
Not.ActiveSheet.Range("F:F").Borders(xlEdgeLeft).W eight = xlThin
End Sub

Toggle Button
 

Try it something like this...

Private Sub ToggleButton1_Click()
With ActiveSheet
If ToggleButton1.Value Then
.Columns("C:E").EntireColumn.Hidden = True
.Columns("F:F").Borders(xlEdgeLeft).Weight = xlThin
Else
.Columns("C:E").Hidden = False
.Columns("F:F").Borders(xlEdgeLeft).LineStyle = xlNone
End If
End With
End Sub

Although it is possible that I have the Then and Else block statements
reversed in location.

--
Rick (MVP - Excel)


"William" wrote in message
...
I have a toggle button that I would like to unhide some columns and remove
a
border line on the first click. On the second click, I would like for it
to
rehide the same columns and put the line back. I thought that I had this
figured out. Please help. This is what I have so far:

Private Sub ToggleButton1_Click()
ActiveSheet.Range(€œC:E€�).EntireColumn.Hidden=F alse
ActiveSheet.Range("F:F").Borders(xlEdgeLeft).LineS tyle = xlNone
Not.ActiveSheet.Range€œC:E€�).EntireColumn.Hidde n=True
Not.ActiveSheet.Range("F:F").Borders(xlEdgeLeft).W eight = xlThin
End Sub

Toggle Button
 

Well I was definitely a little off. Thanks for your help Jim!!!

"Jim Cone" wrote:

Private Sub ToggleButton1_Click()
If ToggleButton1.Value = False Then
Me.Range("C:E").EntireColumn.Hidden = False
Me.Range("F:F").Borders(xlEdgeLeft).LineStyle = xlNone
Else
Me.Range("C:E").EntireColumn.Hidden = True
Me.Range("F:F").Borders(xlEdgeLeft).Weight = xlThin
End If
End Sub
--
Jim Cone
Portland, Oregon USA



"William"
wrote in message
I have a toggle button that I would like to unhide some columns and remove
a border line on the first click. On the second click, I would like for it to
rehide the same columns and put the line back. I thought that I had this
figured out. Please help. This is what I have so far:

Private Sub ToggleButton1_Click()
ActiveSheet.Range(€œC:E€�).EntireColumn.Hidden=F alse
ActiveSheet.Range("F:F").Borders(xlEdgeLeft).LineS tyle = xlNone
Not.ActiveSheet.Range€œC:E€�).EntireColumn.Hidde n=True
Not.ActiveSheet.Range("F:F").Borders(xlEdgeLeft).W eight = xlThin
End Sub

Toggle Button
 

Well I was definitely a little off. Thanks for your help Rick!!!

"Rick Rothstein" wrote:

Try it something like this...

Private Sub ToggleButton1_Click()
With ActiveSheet
If ToggleButton1.Value Then
.Columns("C:E").EntireColumn.Hidden = True
.Columns("F:F").Borders(xlEdgeLeft).Weight = xlThin
Else
.Columns("C:E").Hidden = False
.Columns("F:F").Borders(xlEdgeLeft).LineStyle = xlNone
End If
End With
End Sub

Although it is possible that I have the Then and Else block statements
reversed in location.

--
Rick (MVP - Excel)


"William" wrote in message
...
I have a toggle button that I would like to unhide some columns and remove
a
border line on the first click. On the second click, I would like for it
to
rehide the same columns and put the line back. I thought that I had this
figured out. Please help. This is what I have so far:

Private Sub ToggleButton1_Click()
ActiveSheet.Range(€œC:E€�).EntireColumn.Hidden=F alse
ActiveSheet.Range("F:F").Borders(xlEdgeLeft).LineS tyle = xlNone
Not.ActiveSheet.Range€œC:E€�).EntireColumn.Hidde n=True
Not.ActiveSheet.Range("F:F").Borders(xlEdgeLeft).W eight = xlThin
End Sub