Dim AnyWS as New Regex("\s+") Target = AnyWS.Replace(Target, " ") ----------------------------------------------------------------------------- Copyright 1997-2024 Jeffrey Friedl