Hi,

I'm stuck. I want to do the following

For Sub Clear_advance_filter()

1. Clear range called "Clear_Area" which is A5 to L9.
2. Then insert "-" in range called "Clear" which is A5 to A9
3. Check to see if ActiveSheet.ShowAllData = False. If true exit sub (filter not on and if False then Show all.

For Sub Advance_Filter_master ()

1. If range Clear_Area A5 to L9 has text then delete Clear A5 to A9
----------------------------------------------------

'this Clears range
Range("Clear").ClearContents
'selects A3 and inserts the -

'This shows all
ActiveSheet.ShowAllData
' go home
Range("A1").Select
End Sub

---------------------------------------------------

Sub Advance_Filter_master()

Range("filter_range_master").AdvancedFilter Action:=xlFilterInPlace, CriteriaRange:= _
Range("Criteria_m"), Unique:=False

End Sub

-----------------------------------------------------

Thanks in advance

VBA Noob