VBA: Hide/Unhide Multiple Rows

[astra.castra]

I have searched through this forum and Googled too, but couldn't find an efficient solution to my task.

I have a workbook with multiple tabs. Each tab has about 600 rows. In each tab, I need to hide/unhide rows based on the value of a particular column in that row. For example,
Row1: 10,7.89,John,TRUE
Row2: 16,9.08,Ram,FALSE
Row3: 98,8.09,Joseph,FALSE
Row4: 76,1.23,Harry,TRUE
Using the 4th column (that has either TRUE or FALSE), I need to hide entire row. I am using a loop on the range and hiding each row. But it is taking about 4 minutes for each tab to loop through the 600 rows and hide/unhide the required rows. Is there a faster way to achieve this? Following is my code.

Sub Toggle_Rows()
Dim Cell As Range

Application.ScreenUpdating = False

For Each Cell In Range("D1:D600")
If UCase(Cell.Value) = "TRUE" Then
Cell.EntireRow.Hidden = Not Cell.EntireRow.Hidden
End If
Next
Application.ScreenUpdating = True
End Sub

 

[cstimart]

I have searched through this forum and Googled too, but couldn't find an efficient solution to my task.

I have a workbook with multiple tabs. Each tab has about 600 rows. In each tab, I need to hide/unhide rows based on the value of a particular column in that row. For example,
Row1: 10,7.89,John,TRUE
Row2: 16,9.08,Ram,FALSE
Row3: 98,8.09,Joseph,FALSE
Row4: 76,1.23,Harry,TRUE
Using the 4th column (that has either TRUE or FALSE), I need to hide entire row. I am using a loop on the range and hiding each row. But it is taking about 4 minutes for each tab to loop through the 600 rows and hide/unhide the required rows. Is there a faster way to achieve this? Following is my code.

Sub Toggle_Rows()
    Dim Cell As Range
    
    Application.ScreenUpdating = False
    
    For Each Cell In Range("D1:D600")
        If UCase(Cell.Value) = "TRUE" Then
            Cell.EntireRow.Hidden = Not Cell.EntireRow.Hidden
        End If
    Next
    Application.ScreenUpdating = True
End Sub

Try this?

Sub Toggle_Rows()
Dim cell As Range
Dim LR As Long

Application.ScreenUpdating = False
Cells.EntireRow.Hidden = False

LR = Range("D" & Rows.Count).End(xlUp).Row

For Each cell In Range("D1:D" & LR)
     cell.EntireRow.Hidden = cell.Value
Next cell
End Sub