Hide and Unhide Rows button

[FinlandGuy]

I have this code for a button to hide and Unhide rows (7 to 10) But it
hides everything in my sheet. I just want it to hide just the 4 rows.

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

Thanks in advance,

Cheers John

 

[Sam Wilson]

Try this:

Private Sub CommandButton8_Click()

If CommandButton8.Caption = "Hide" Then
Rows("7:10").hidden=true
CommandButton8.Caption = "UnHide"
Else
Rows("7:10").hidden=false
CommandButton8.Caption = "Hide"
End If
End Sub

 

[Stefi]

Try this:
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

Regards,
Stefi


„FinlandGuy†ezt írta:

 

[Les Stout]

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 ***

 

[FinlandGuy]

I dont think you displayed your hole message. Please try again. thanks

BR,
John

 

[FinlandGuy]

Awesom thanks a bunch

Cheers,
John

 

[Stefi]

You are welcome! Thanks for the feedback!
Stefi

„FinlandGuy†ezt írta: