View Single Post
 
Old 02-01-2018, 05:17 PM
p45cal's Avatar
p45cal p45cal is offline Windows 10 Office 2010 32bit
Expert
 
Join Date: Apr 2014
Posts: 947
p45cal has a reputation beyond reputep45cal has a reputation beyond reputep45cal has a reputation beyond reputep45cal has a reputation beyond reputep45cal has a reputation beyond reputep45cal has a reputation beyond reputep45cal has a reputation beyond reputep45cal has a reputation beyond reputep45cal has a reputation beyond reputep45cal has a reputation beyond reputep45cal has a reputation beyond repute
Default

This might do it:
Code:
Private Function Spaces(strText As String) As String
Spaces = Replace(Replace(Application.Trim(strText), "( ", "("), " )", ")")
End Function
If not, supply a bunch of strings with before and after expectations.
Reply With Quote