Jindon, that works.

cheeze83 I get an error with that line
activesheet.pastespecial paste:=xlvalues

Thanks