Hi Anthony,
Try this, you'll need to have your combo box named the same as the one in the code below (ComboBox1):
Option Explicit
Private Sub ComboBox1_DropButtonClick()
'populate the combo box
Dim MyList(200, 1), N&
For N = 6 To 200
MyList(N - 6, 0) = Range("F" & N)
Next N
ComboBox1.List = MyList
End Sub
Private Sub ComboBox1_Change()
With Range("F1:F200")
If ComboBox1 = "X" Then
'No Filter, show all data
.AutoFilter 1, "*", , , False
Else
'Filter 6th column based on combo box value
.AutoFilter 1, ComboBox1, , , False
End If
End With