Function consolidateThat()
    ' x is the selection
    ' dim x as string
    oldClipboard = Clipboard
    Wait 0.1
    SendKeys "^c", 1
    Wait 0.2
    Let x = Clipboard
    Let y = Chr$(10) ' new line
    Let z = Chr$(13) ' carriage return line feed
    wait 0.1
    Let x = Replace(x, y, " ")
    wait 0.1
    Let x = Replace(x, z, " ")
    wait 0.1
    Let x = Replace(x, Space(4), " ")
    wait 0.1
    Let x = Replace(x, Space(3), " ")
    wait 0.1
    Let x = Replace(x, Space(2), " ")
    wait 0.1
    Clipboard x
    wait 0.1
    SendKeys "^v", 1
    Wait 0.1
    Clipboard oldclipboard
End Function