thanks for the replyTry (untested)
Code:Sub FILTER_AREA() Dim bf As String bf = Range("AREA").Value Select Case bf Case "(all)" Selection.AutoFilter Field:=3 Case Else Selection.AutoFilter Field:=3, Criteria1:="=*" & bf & "*", Operator:=xlAnd End Select End Sub
thanks for the reply
this doesnt quite work because the first section of the code looks for "(all)" as a category under the custom dropdown (which doesnt exist) , what i need it to do instead is for it to
select the first (all) which appears in the filter dropdown