Option Explicit
Dim LR&, R&, AV, rng As Range
Private Sub UserForm_Initialize()
Rows.Hidden = False
LR = Range("E" & Rows.Count).End(xlUp).Row
Set rng = Range("A1:E" & LR)
AV = rng.Value
Rows.Hidden = True
End Sub
Private Sub CheckBox1_Click()
Application.ScreenUpdating = False
For R = 1 To LR
If AV(R, 5) = "A" Then
If CheckBox1 Then
Rows(R).Hidden = False
Else
Rows(R).Hidden = True
End If
End If
Next
Application.ScreenUpdating = True
Cells(1, 1).Select
End Sub
Private Sub CheckBox2_Click()
Application.ScreenUpdating = False
For R = 1 To LR
If AV(R, 5) = "B" Then
If CheckBox2 Then
Rows(R).Hidden = False
Else
Rows(R).Hidden = True
End If
End If
Next
Application.ScreenUpdating = True
Cells(1, 1).Select
End Sub
Private Sub CheckBox3_Click()
Application.ScreenUpdating = False
For R = 1 To LR
If AV(R, 5) = "C" Then
If CheckBox3 Then
Rows(R).Hidden = False
Else
Rows(R).Hidden = True
End If
End If
Next
Application.ScreenUpdating = True
Cells(1, 1).Select
End Sub