Hide rows, if a cell value automatically changes (based on a formula)

[vivek456]

Hello - I badly need some help. Can someone help me please?

The below macro works only if there is a manual action on cell C5. I am keen to initiate the below macro, if cell C5 automatically changes because of a formula in cell C5. Any feedback on this would be much appreciated.

Private Sub Worksheet_Change(ByVal Target As Range)ActiveSheet.ActivateIf Not Application.Intersect(Range("C5"), Range(Target.Address)) Is Nothing Then Select Case Target.Value Case Is = "Canada": Rows("19:25").EntireRow.Hidden = True Rows("7:18").EntireRow.Hidden = False Case Is = "India": Rows("19:25").EntireRow.Hidden = False Rows("7:18").EntireRow.Hidden = True End SelectEnd IfEnd Sub

 

[Vbagreenhorn1]

try this:

Private Sub Worksheet_Change(ByVal Target As Range)
Select Case Range("C5").Value
    Case "Canada"
        Rows("19:25").EntireRow.Hidden = True
        Rows("7:18").EntireRow.Hidden = False
    Case "India":
        Rows("19:25").EntireRow.Hidden = False
        Rows("7:18").EntireRow.Hidden = True
End Select
End Sub

 

[vivek456]

Thank you very much. Appreciate it.

If I wanted to extend this logic based on the value that automatically changes in C5, would I be able to protect (non editable)/unprotect a column F4:F10?

Is there a way to do this?

Thank you once again for this.