Tried that, it says it cannot find the value??
I have tried substitute and the below macro and it doesn't work. The orginal cell has 4 blank spaces after the value and I can't remove them all?
TIA,
Mark
Public Function RemoveSpaces(strInput As String)
' Removes all spaces from a string of text
Test:
If InStr(strInput, " ") = 0 Then
RemoveSpaces = strInput
Else
strInput = Left(strInput, InStr(strInput, " ") - 1) _
& Right(strInput, Len(strInput) - InStr(strInput, " "))
GoTo Test
End If
End Function