vbYesNo + Clean and Trim Selection

I have some code that is functioning as desired. It takes the users selection and cleans and trims each cell.
My question is, is the code listed below the best way to go about this?

Please Login or Register  to view this content.

Any edits or suggestions would be welcome

using Evaluate is a quick method, certainly -- looking at your code

a) you might want to move your final End If {re: Filter test} to above 'Weed out... else if no Auto Filter in place at run-time then no routine.
b) you might want to add a MsgBox advising of abort if user opts to preserve the filter
c) you might want to leverage the intersect of the UsedRange relative to the Selection (e.g. should user select all cells on tab, for ex.)
d) you might want to further restrict your SpecialCells reference with optional parameter of xlTextValues