Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- Sheets("AR Aging").Range("A:J").AutoFilter Field:=2, Criteria1:=Array( _
- "*COMPANY*"), Operator:=xlFilterValues
- Range("A:J").Copy
- Sheets.Add After:=Sheets(7)
- ActiveSheet.Paste
- Sheets(8).Select
- Sheets(8).Name = "XYZ"
- Sheets("AR Aging").AutoFilterMode = False
- Sheets("AR Aging").Activate
- Application.CutCopyMode = False
- Criteria1:=Array( "*COMPANY*")
- Criteria1:=Array( "<>*COMPANY*")
Add Comment
Please, Sign In to add comment