Obviously I was referring to gmaxey's code, which contains "Do While .Find.Execute".
The first part of your code returns ".Execute" Not valid!!
The second part ("http://[! ]{1,}") doesn't find anything at all.
Up to now the only working code is the one I posted, though unfortunately it returns only "http://w", not the whole inactive link.