Thread: Hide and Unhide Rows button
View Single Post
  #4   Report Post  
Posted to microsoft.public.excel.programming
Les Stout[_2_] Les Stout[_2_] is offline
external usenet poster
  
Posts: 396
Default Hide and Unhide Rows button
Hi John, it works fine for me. you can shorten your code with excel 2003

Private Sub CommandButton8_Click()
If CommandButton8.Caption = "Hide" Then
Range("7:10").EntireRow.Hidden = True
CommandButton8.Caption = "UnHide"
Else
Range("7:10").EntireRow.Hidden = False
CommandButton8.Caption = "Hide"
End If
End Sub


Best regards,

Les Stout

*** Sent via Developersdex http://www.developersdex.com ***
Reply With QuoteReply With Quote