I'm thinking this might be more what you are looking for. When I ran Chip's
code, I got a string without spaces at all.

Sub merge()
Dim S As String
S = "Your_String"
S = Replace(S, "_", Space(1))
MsgBox S
End Sub

"TomP" wrote:

I have an object that is filled with many underscores between texts. I
recently got help from your forum on how to remove leading underscores which
works great and now I need help in replacing a line of underscores between
words with a single space.

Thank you again for your help!