Streamlining VBA to hide/unhide rows

Hi, I have 4 worksheet change events and the idea for each is that, if the value in column BX for a row within the applicable range is "Hide", then that row should be hidden (otherwise unhidden).  The below code works, but is slow/inefficient so hoping to get help with making it work better.

Thank you!

Private Sub Worksheet_Change(ByVal Target As Excel.Range)

    If Not Intersect(Range("CGLPolicyYears"), Target) Is Nothing Then

        Application.EnableEvents = False

        Application.ScreenUpdating = False

        ActiveSheet.Unprotect Password:="incomplete"

        Rows("25:31").EntireRow.Hidden = True

        beginRow = 25

        endRow = 31

        chkCol = 76

        For rowCnt = beginRow To endRow

            If Cells(rowCnt, chkCol).Value = "Hide" Then

            Cells(rowCnt, chkCol).EntireRow.Hidden = True

            Else

            Cells(rowCnt, chkCol).EntireRow.Hidden = False

        End If

        Next rowCnt

        ActiveSheet.Protect DrawingObjects:=False, Contents:=True, Scenarios:=False, AllowFormattingRows:=True, Password:="incomplete"

        Application.ScreenUpdating = True

        Application.EnableEvents = True

    End If

    If Not Intersect(Range("ALPolicyYears"), Target) Is Nothing Then

        Application.EnableEvents = False

        Application.ScreenUpdating = False

        ActiveSheet.Unprotect Password:="incomplete"

        Rows("408:414").EntireRow.Hidden = True

        beginRow = 408

        endRow = 414

        chkCol = 76

        For rowCnt = beginRow To endRow

            If Cells(rowCnt, chkCol).Value = "Hide" Then

            Cells(rowCnt, chkCol).EntireRow.Hidden = True

            Else

            Cells(rowCnt, chkCol).EntireRow.Hidden = False

        End If

        Next rowCnt

        ActiveSheet.Protect DrawingObjects:=False, Contents:=True, Scenarios:=False, AllowFormattingRows:=True, Password:="incomplete"

        Application.ScreenUpdating = True

        Application.EnableEvents = True

    End If

    If Not Intersect(Range("CGLLargeLosses"), Target) Is Nothing Then

        Application.EnableEvents = False

        Application.ScreenUpdating = False

        ActiveSheet.Unprotect Password:="incomplete"

        Rows("62:168").EntireRow.Hidden = True

        beginRow = 62

        endRow = 168

        chkCol = 76

        For rowCnt = beginRow To endRow

            If Cells(rowCnt, chkCol).Value = "Hide" Then

            Cells(rowCnt, chkCol).EntireRow.Hidden = True

            Else

            Cells(rowCnt, chkCol).EntireRow.Hidden = False

        End If

        Next rowCnt

        ActiveSheet.Protect DrawingObjects:=False, Contents:=True, Scenarios:=False, AllowFormattingRows:=True, Password:="incomplete"

        Application.ScreenUpdating = True

        Application.EnableEvents = True

    End If

    If Not Intersect(Range("ALLargeLosses"), Target) Is Nothing Then

        Application.EnableEvents = False

        Application.ScreenUpdating = False

        ActiveSheet.Unprotect Password:="incomplete"

        Rows("445:551").EntireRow.Hidden = True

        beginRow = 445

        endRow = 551

        chkCol = 76

        For rowCnt = beginRow To endRow

            If Cells(rowCnt, chkCol).Value = "Hide" Then

            Cells(rowCnt, chkCol).EntireRow.Hidden = True

            Else

            Cells(rowCnt, chkCol).EntireRow.Hidden = False

        End If

        Next rowCnt

        ActiveSheet.Protect DrawingObjects:=False, Contents:=True, Scenarios:=False, AllowFormattingRows:=True, Password:="incomplete"

        Application.ScreenUpdating = True

        Application.EnableEvents = True

    End If

End Sub