Filter problem
A combobox contains the following code:
Private Sub cbCAT_Change()
Filtercolumn = 12
If cbCAT < "" Then
Selection.AutoFilter Field:=Filtercolumn, Criteria1:="=" &
cbCAT
Else
Selection.auofilter Field:=Filtercolumn
End If
End Sub
Problem
When cbCAT < "" then a filter is set according to the value of cbCAT.
That works just fine.
When the user blanks the value and cbCAT = "" I want to set the filter
off. When I do it manually in the worksheet, it works fine. However,
then I do it here in the macro, I get an error message.
Anybody know whe?
Glen
|