Hi again,
Take a look at the attached workbook and see if it does what you need. It uses the following code:
Option Explicit
Sub HideOrUnhideRows()
Const sROWS_TO_HIDE As String = "40:46"
Const sHIDE_ROWS As String = "chkHideRows"
Const sMASTER As String = "Master"
Const sSET_UP As String = "SetUp"
Dim iFirstIndex As Integer
Dim wksMaster As Worksheet
Dim wksSetUp As Worksheet
Dim iSheetNo As Integer
Dim bHidden As Boolean
Set wksMaster = ThisWorkbook.Worksheets(sMASTER)
iFirstIndex = wksMaster.Index + 1
Set wksSetUp = ThisWorkbook.Worksheets(sSET_UP)
If wksSetUp.Shapes(sHIDE_ROWS).ControlFormat.Value = 1 Then
bHidden = False
Else: bHidden = True
End If
For iSheetNo = iFirstIndex To ThisWorkbook.Worksheets.Count
ThisWorkbook.Worksheets(iSheetNo).Rows(sROWS_TO_HIDE).Hidden = bHidden
Next iSheetNo
End Sub
The highlighted values may be changed to suit your own workbook layout.
Hope this helps - please let me know how you get on.
Regards,
Greg M
Bookmarks