Run-time error '1004': Unable to set the hidden property of the range class

[lovekush]

I have this code but this show an error-Run-time error '1004': Unable to set the hidden property of the range class
And one thing more i want to use same code on different sheets in same Workbook.
Sub Hide_Unhide()
'
' Hide_Unhide Macro
' Macro recorded 5/9/2017
'
' Keyboard Shortcut: Ctrl+s
'
If Range("T3069").Value = 30 Then
Rows("3070:3121").EntireRow.Hidden = True
Else
Rows("3070:3121").EntireRow.Hidden = False
End If
End Sub

Lovekush

 

[AlphaFrog]

You could get that error if the worksheet is protected. If yes, try something like this. Change the password to suit.

[color=darkblue]Sub[/color] Hide_Unhide()
[color=green]'[/color]
[color=green]' Hide_Unhide Macro[/color]
[color=green]' Macro recorded 5/9/2017[/color]
[color=green]'[/color]
[color=green]' Keyboard Shortcut: Ctrl+s[/color]
[color=green]'[/color]
[B]ActiveSheet.Unprotect Password:="[COLOR=#ff0000]Secret[/COLOR]"[/B]
[color=darkblue]If[/color] Range("T3069").Value = 30 [color=darkblue]Then[/color]
Rows("3070:3121").EntireRow.Hidden = [color=darkblue]True[/color]
[color=darkblue]Else[/color]
Rows("3070:3121").EntireRow.Hidden = [color=darkblue]False[/color]
[color=darkblue]End[/color] [color=darkblue]If[/color]
[B]ActiveSheet.Protect Password:="[COLOR=#ff0000]Secret[/COLOR]"[/B]
[color=darkblue]End[/color] [color=darkblue]Sub[/color]

 

[lovekush]

what to do to run macro auto.
Thanks.

 

[AlphaFrog]

Do you manually change the value in T3069 or is it a formula? If it is a formula, what is the formula?

 

[lovekush]

I done it
Thanks.