Private Function Spaces(strText As String) As String Spaces = Replace(Replace(Application.Trim(strText), "( ", "("), " )", ")") End Function