VBA to Hide/Unhide both rows and columns on same sheet

[onthegreen03]

Hi - I pieced together code that hides/unhides, using a checkbox, a set of columns on another sheet. Can someone tell me how I can modify this to also include an entire row on the same sheet? So in the example below hide/unhide columns C:N and row 29. Thank you for your help!

Private Sub CheckBox1_Click()
Dim xAddress As String
xAddress = "C:N"
If CheckBox1.Value Then
Application.Sheets("RHA CGF Model").Columns(xAddress).Hidden = True
CheckBox1.Caption = "Include"
Else
Application.ActiveSheet.Columns(xAddress).Hidden = False
CheckBox1.Caption = "Exclude"
End If
End Sub

 

[Fluff]

How about

Private Sub CheckBox1_Click()
   With CheckBox1
      Sheets("RHA CGF Model").Columns("C:N").Hidden = .Value
      Sheets("RHA CGF Model").Rows(29).Hidden = .Value
      .Caption = IIf(.Value, "Include", "Exclude")
   End With
End Sub

 

[onthegreen03]

Fluff to the rescue as always. Simple and effective, thank you! If I wanted to include a series of rows would I just change it to this?

Private Sub CheckBox1_Click()
With CheckBox1
Sheets("RHA CGF Model").Columns("C:N").Hidden = .Value
Sheets("RHA CGF Model").Rows(29:30).Hidden = .Value
.Caption = IIf(.Value, "Include", "Exclude")
End With
End Sub

 

[Fluff]

As long as they are contiguous then yes, as long as you put the rows numbers in quotes like Rows("29:30")

 

[onthegreen03]

Thanks Fluff. Last question regarding this topic. What if I have a string of columns that I wanted to include. Would it be:

Private Sub CheckBox1_Click()
With CheckBox1
Sheets("RHA CGF Model").Columns("C:N,Y:AC,BA:BD").Hidden = .Value
Sheets("RHA CGF Model").Rows(29).Hidden = .Value
.Caption = IIf(.Value, "Include", "Exclude")
End With
End Sub

 

[Fluff]

Have you tried it?

 

[onthegreen03]

Yes, and it didn't work. I tried it a few different ways and it is still stopping there in error.

 

[Fluff]

Yes, and it didn't work.

Then why did you ask?
Try it like

Sheets("RHA CGF Model").Range("C:N,Y:AC,BA:BD").EntireColumn.Hidden = .Value

 

[onthegreen03]

Thanks Fluff, that worked great! Sorry about the confusion and multiple questions.

 

[Fluff]

Glad to help & thanks for the feedback.