Good day,

Thank you for the advice and it worked well. I have to do this for about 60 courses on the same excel sheet and up to 20 iterations of the same course. The idea is that it will automatically reveal an iteration as needed and not display all 20. For obvious reasons, I do not want to execute 1200 if statements every time a cell is changed. Handling 80 if statements is a lot easier regarding the processing speed.

If there a way I could simplify the code below? The code displayed is 1 course. My assumption is ElseIf statements, but it is not working.

Sub HideRows_Based_On_Values()

If Range("C2").Value = "n" Then
    For Each cell In Range("c3:c21")
        If cell.Value = "n" Then cell.EntireRow.Hidden = True
Next cell
End If
If Range("C3").Value = "n" Then
    For Each cell In Range("c4:c21")
        If cell.Value = "n" Then cell.EntireRow.Hidden = True
Next cell
End If
If Range("C4").Value = "n" Then
    For Each cell In Range("c5:c21")
        If cell.Value = "n" Then cell.EntireRow.Hidden = True
Next cell
End If
If Range("C5").Value = "n" Then
    For Each cell In Range("c6:c21")
        If cell.Value = "n" Then cell.EntireRow.Hidden = True
Next cell
End If
If Range("C6").Value = "n" Then
    For Each cell In Range("c7:c21")
        If cell.Value = "n" Then cell.EntireRow.Hidden = True
Next cell
End If
If Range("C7").Value = "n" Then
    For Each cell In Range("c8:c21")
        If cell.Value = "n" Then cell.EntireRow.Hidden = True
Next cell
End If
If Range("C8").Value = "n" Then
    For Each cell In Range("c9:c21")
        If cell.Value = "n" Then cell.EntireRow.Hidden = True
Next cell
End If
If Range("C9").Value = "n" Then
    For Each cell In Range("c10:c21")
        If cell.Value = "n" Then cell.EntireRow.Hidden = True
Next cell
End If
If Range("C10").Value = "n" Then
    For Each cell In Range("c11:c21")
        If cell.Value = "n" Then cell.EntireRow.Hidden = True
Next cell
End If
If Range("C11").Value = "n" Then
    For Each cell In Range("c12:c21")
        If cell.Value = "n" Then cell.EntireRow.Hidden = True
Next cell
End If
If Range("C12").Value = "n" Then
    For Each cell In Range("c13:c21")
        If cell.Value = "n" Then cell.EntireRow.Hidden = True
Next cell
End If
If Range("C13").Value = "n" Then
    For Each cell In Range("c14:c21")
        If cell.Value = "n" Then cell.EntireRow.Hidden = True
Next cell
End If
If Range("C14").Value = "n" Then
    For Each cell In Range("c15:c21")
        If cell.Value = "n" Then cell.EntireRow.Hidden = True
Next cell
End If
If Range("C15").Value = "n" Then
    For Each cell In Range("c16:c21")
        If cell.Value = "n" Then cell.EntireRow.Hidden = True
Next cell
End If
If Range("C16").Value = "n" Then
    For Each cell In Range("c17:c21")
        If cell.Value = "n" Then cell.EntireRow.Hidden = True
Next cell
End If
If Range("C17").Value = "n" Then
    For Each cell In Range("c18:c21")
        If cell.Value = "n" Then cell.EntireRow.Hidden = True
Next cell
End If
If Range("C18").Value = "n" Then
    For Each cell In Range("c19:c21")
        If cell.Value = "n" Then cell.EntireRow.Hidden = True
Next cell
End If
If Range("C19").Value = "n" Then
    For Each cell In Range("c20:c21")
        If cell.Value = "n" Then cell.EntireRow.Hidden = True
Next cell
End If
If Range("C20").Value = "n" Then
    For Each cell In Range("c21")
        If cell.Value = "n" Then cell.EntireRow.Hidden = True
Next cell
End If
If Range("C21").Value = "n" Then
    For Each cell In Range("c21")
        If cell.Value = "n" Then cell.EntireRow.Hidden = True
Next cell
End If
End Sub