Replace All Underscores in Range with Space

[dwhitey1124]

Hi all, I have been trolling the forum for the last few hours trying every .replace code I could find but to no avail. I would like to insert code into an existing macro that calculates sheet 2. The sheet is full of index functions that pull categories with underscores from sheet 1 (underscores needed because they are named ranges). On this new sheet they are just text so I would like to replace the underscores with spaces. In order to streamline calculations, I would like the replace underscore to only apply to c2:e200. I'm willing to try anything after numerous failed attempts. Thanks in advance.

 

[ZVI]

Hi,
Try this:

  On Error Resume Next
  Sheets(2).Range("C2:E200").Replace "_", " ", LookAt:=xlPart
  On Error GoTo 0

Use Sheets("Sheet2") where Sheet2 is the tab name instead of Sheets(2) if required