1. Open the workbook
2. Press Alt-F11 to open the VB Editor
3. On the left you should see your workbook's name. Double-click on the 'ThisWorkbook' entry below that.
4. Paste the code into the main window
5. Press Alt-F11 to exit the VB Editor
6. Press Alt-F8 and choose 'DeleteURLs', then Run.
When the macro finishes, you should only have the entries containing "soccer", "basketball", "football", and/or "tennis" remaining. With 150,000 rows to process, it may take a minute or two.

Note that the macro assumes all the data are in column A.

__________________
Cheers,
Paul Edstein
[Fmr MS MVP - Word]