I am trying to get this macro run automatically when a value in the target cell changes but it's not working, searched solutions for hours but am still hitting the wall, sorry I am new to VBA. Really appreciate it if any kind soul could help.
My code is below:
Sub Hide_Row()
Dim rng As Range
Dim cell As Range
Set rng = Sheets("PL").Range("F32:F35,F41:F44,F50:F53,F59:F62")
For Each cell In rng
If cell.Value = 0 Then
cell.EntireRow.Hidden = True
Else
cell.EntireRow.Hidden = False
End If
Next
Dim MyRange As Range
Set MyRange = Sheets("PL").Range("E30")
If MyRange.Value = "0" Then
Sheets("PL").Rows("30:31").EntireRow.Hidden = True
Else
Sheets("PL").Rows("30:31").EntireRow.Hidden = False
End If
Set MyRange = Sheets("PL").Range("E39")
If MyRange.Value = "0" Then
Sheets("PL").Rows("39:40").EntireRow.Hidden = True
Else
Sheets("PL").Rows("39:40").EntireRow.Hidden = False
End If
Set MyRange = Sheets("PL").Range("E48")
If MyRange.Value = "0" Then
Sheets("PL").Rows("48:49").EntireRow.Hidden = True
Else
Sheets("PL").Rows("48:49").EntireRow.Hidden = False
End If
End Sub