SyntaxFix
Write A Post
Hire A Developer
Questions
Or this:
Range("A2", Range("D" & Rows.Count).End(xlUp).Address).Sort Key1:=[b3], _ Order1:=xlAscending, Header:=xlYes