Many thanks DRG,

the macro works perfectly, I just delete one more line

DataOption1:=xlSortNormal
I think by mistake you left there, and now everything works nice.



Best regards

Ismael