Range error for AutoFilter

[baardaj]

I have a combobox which I wish to use to autofilter a range. It appears to work since the autofiltering happens but it always comes up with "AutoFilter method of Range class failed". Please help me...

Private Sub ComboBox1_Change()
If ComboBox1.Value <> "ALL" Then
ActiveSheet.Range("A1:D300").AutoFilter Field:=2, Criteria1:=ComboBox1.Value
Else
ActiveSheet.ShowAllData
End If
End Sub

Thanks!

[gmr4evr1]

Can you attach a sample of your workbook with any userform(s), code(s) and/or control(s) you are using?

[baardaj]

I have attached my file to the original post. Its pretty rough right now. I would like to get it functional before I finish.

[bakerman2]

Move the list you use to fill your combobox to another sheet or below your range with products and your problem's solved.

[gmr4evr1]

I'm not sure if this will mess anything else up, but, you could add

Please Login or Register  to view this content.

after the Private Sub title line.
This would prevent the error from showing up.

Edit* Or do what bakerman2 says

[baardaj]

Thanks guys! Works perfect!

[bakerman2]

You're welcome and thanks for rep+.

If that takes care of your original question, please select Thread Tools from the menu link above and mark this thread as SOLVED. Thanks.

[gmr4evr1]

Welcome, thanks for the rep.

If that takes care of your original question, please select Thread Tools from the menu link above and mark this thread as SOLVED. Thanks.