Code - Clear and Insert & If Statement
 

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 su
(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").AdvancedFilte
Action:=xlFilterInPlace, CriteriaRange:= _
Range("Criteria_m"), Unique:=False

End Sub

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

Thanks in advance

VBA Noo

--
VBA Noo
-----------------------------------------------------------------------
VBA Noob's Profile: http://www.excelforum.com/member.php...fo&userid=3383
View this thread: http://www.excelforum.com/showthread.php?threadid=56330