Hi Rasm,

This works for me.

Code:
activesheet.usedrange.Replace chr(9),"_",2
Kris