Can anyone help please

I want to hide row10 on sheet 2 if sheet1 A1=Yes,
but every time I make a copy of sheet1 the same requirement is needed to the
new sheet. Always hide the same row (possibly rows) on each sheet

Any takers

Thanks in advance
Saintsman

Your question is rather ambiguous - I'll assume you mean that row 10 on
any sheet other than Sheet1 needs to be hidden if Sheet1!A1 = Yes...

Put this code in our ThisWorkbook code module:

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
If Sh.Name < "Sheet1" Then
Sh.Rows(10).Hidden = Sheets("Sheet1").Range("A1") = "Yes"
End If
End Sub



In article ,
Saintsman wrote:

Can anyone help please

I want to hide row10 on sheet 2 if sheet1 A1=Yes,
but every time I make a copy of sheet1 the same requirement is needed to the
new sheet. Always hide the same row (possibly rows) on each sheet

Any takers

Thanks in advance
Saintsman

Sorry for any ambiguity!
It is not for every sheet except sheet1
The sheet will be 1 of many similar calculation sheets, each of which needs
the function to hide specific rows if sheet1 A1 = Yes (same rows in each case)
There are other sheets which should not have the function.
My plan was to have a sort of template sheet with the function on, which is
then available every time a copy of that sheet is made


"JE McGimpsey" wrote:

Your question is rather ambiguous - I'll assume you mean that row 10 on
any sheet other than Sheet1 needs to be hidden if Sheet1!A1 = Yes...

Put this code in our ThisWorkbook code module:

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
If Sh.Name < "Sheet1" Then
Sh.Rows(10).Hidden = Sheets("Sheet1").Range("A1") = "Yes"
End If
End Sub



In article ,
Saintsman wrote:

Can anyone help please

I want to hide row10 on sheet 2 if sheet1 A1=Yes,
but every time I make a copy of sheet1 the same requirement is needed to the
new sheet. Always hide the same row (possibly rows) on each sheet

Any takers

Thanks in advance
Saintsman