Hi,

I am very new to VBA programming and currently trying my luck on a script to unide/hide specific group of rows when i input a value in a cell. Attached is the script, please advise what went wrong and a possible solution.

Thanks in advance.


Sub unhide()

Application.ScreenUpdating = False

If ActiveSheet.Cells(24, 25) Then
ActiveSheet.Rows("1051:1094").Hidden = True
ActiveSheet.Rows("1051:1053").Hidden = False
ActiveSheet.Rows("1053:" & 1053 + ActiveSheet.Cells(1052, 4).Value * 4).Hidden = False
ActiveSheet.Cells(1052, 4).Select
Else
ActiveSheet.Rows("1051:1094").Hidden = True
End If

Application.ScreenUpdating = True

End Sub