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