Compile Error while sorting with VBA

[capnhud]

I am trying to sort data in a worksheet based on two criteria in two columns that are not adjacent, but I keep getting the error "Expected End With" but End With is in the macro

Please Login or Register  to view this content.

Attached is a sample worksheet

[Mordred]

You forgot an End With and a Next wks. Try

Please Login or Register  to view this content.

[capnhud]

Thank you for catching my mistake

[Mordred]

You're welcome!