Hide rows with different values in the same column?

[Olov]

Hi. Would like some help with this.
I want rows with values B, D, I, K, R, S, or V in column E (5) to be hidden.

Sub Hide_Rows_Column_5()
    Dim ws As Worksheet
    Application.ScreenUpdating = False
    Application.Calculation = xlManual
    Dim irow As Range, rngLoop As Range, lastrow As Long
    For Each ws In ThisWorkbook.Worksheets
        Select Case ws.Name
        Case "K1", "K2", "K3", "K4", "K7"
        lastrow = ws.Cells(ws.Rows.Count, "A").End(xlUp).row
            Set rngLoop = ws.Range("8:" & lastrow).Rows
            For Each irow In rngLoop
            If irow.Cells(5) = "B" Then 'or D, I, K, R, S, V
            irow.Hidden = True
            End If
            Next irow
        Case Else
        End Select
    Next ws
    Application.Calculation = xlAutomatic
    Application.ScreenUpdating = True
End Sub

I want to have B, D, I, K, R, S, V in

If irow.Cells(5) = "B" Then

 

[HongRu]

Try.

Sub Hide_Rows_Column_5()
    Dim ws As Worksheet
    Application.ScreenUpdating = False
    Application.Calculation = xlManual
    Dim irow As Range, rngLoop As Range, lastrow As Long
    For Each ws In ThisWorkbook.Worksheets
        Select Case ws.Name
            Case "K1", "K2", "K3", "K4", "K7"
            lastrow = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row
                Set rngLoop = ws.Range("8:" & lastrow).Rows
                For Each irow In rngLoop
                    Select Case irow.Cells(5)
                        Case "B", "D", "I", "K", "R", "S", "V"
                            irow.Hidden = True
                    End Select
                Next irow
            Case Else
        End Select
    Next ws
    Application.Calculation = xlAutomatic
    Application.ScreenUpdating = True
End Sub

 

[Olov]

I get error 13 Incompatible types
Stops at

Case "B", "D", "I", "K", "R", "S", "V"

When i remove

, "K4", "K7"

it works

 

[kvsrinivasamurthy]

Replace these lines

If irow.Cells(5) = "B" Then 'or D, I, K, R, S, V
irow.Hidden = True
End If

By

If InStr(1, "BDIKRSV", irow.Cells(5)) > 0 Then
irow.Hidden = True
End If

 

[Olov]

I get error 13 Incompatible types
Stops at

Case "B", "D", "I", "K", "R", "S", "V"

When i remove

, "K4", "K7"

it works

I tried removing K4 and it worked. I have now reformatted the entire column E in the entire K4 and now it works.