I've turned my macro into a generally-useful KM subroutine. You can find it here:
For more information, see the wiki Searching the Forum for Answers section.