Checkbox Loop Help

[Kinchen]

Hello,

I've been trying to figure out how to loop check boxes to unhide rows in a separate sheet. What i've tried so far from going through the various forums in this site:

Dim x As Integer
For x = 2 To 79

Private Sub checkbox1_click()
Call HideUnhide
End Sub

Private Sub checkbox(1+x)_click()
Call HideUnhide
End Sub

Private Sub HideUnhide()
If CheckBox1.Value = True Then
Sheets(Report).Row(1, 35).Hidden = False
Else
Sheets(Report).Row(1, 35).Hidden = True
End If

If Checkbox(1 + x).Value = True Then
Sheets(Report).Row((((1 - x) * 35)-1), 35 * x).Hidden = False
Else
Sheets(Report).Row((((1 - x) * 35)-1), 35 * x).Hidden = True
End If
End Sub

So basically what i'm trying to do is I have a layout of a storage yard that has 79 units with checkboxes beside them (in various columns/rows in the "layout" tab) and I want to be able to unhide rows in the "Report" tab if the checkbox value = true. The report table goes from 1-2765 in 35 cell increments. (ie. 1-35, 36-70, etc.)

 

[Kinchen]

In Case anyone comes across a similar problem; I've found a way to make it work, but it is very tedious.

Sub Button80_Click()

If Sheets("Layout").CheckBox1.Value = True Then
Sheets("Reports").Select
[1:35].EntireRow.Hidden = False
Else:
Sheets("Reports").Select
[1:35].EntireRow.Hidden = True
End If

If Sheets("Layout").CheckBox2.Value = True Then
Sheets("Reports").Select
[36:70].EntireRow.Hidden = False
Else:
Sheets("Reports").Select
[36:70].EntireRow.Hidden = True
End If
' I did this for 75 Buttons which is not very efficient time wise, but it does work
End Sub

If anyone figures out how to use a formula please post it below for future reference