Sub Test() With ActiveSheet.Range("A:D") .AutoFilter 3, 900 .AutoFilter 4, "CS" End With End Sub
Sub Test() With ActiveSheet.Range("A:D") .AutoFilter 3, 900 .AutoFilter 4, "CS" End With End Sub
MVP (Excel 2008-2010)
Post a workbook with sample data and layout if you want a quicker solution.
To help indent your macros try Smart Indent
Please remember to mark threads 'Solved'
Posting Permissions
Reply With Quote