Try this: Change myValue to match what you need for each button
Sub MainMacro()
Dim LR As Long
Dim icell As Range
Dim myValue As String
myValue = "The Hulk" 'change this for the different buttons
Application.ScreenUpdating = False
LR = Range("C" & Rows.Count).End(xlUp).Row - 4
If LR < 11 Then Exit Sub
Range("C11:C" & LR).EntireRow.Hidden = False
For Each icell In Range("C11:C" & LR)
If icell.Value = myValue Or icell.Value = "All" Then
Else
icell.EntireRow.Hidden = True
End If
Next icell
Application.ScreenUpdating = True
End Sub
Bookmarks