Replace the last line with
Code:
 
Call ActiveSheet.Range(RangeVal).Replace(vbTab, "_")