changing links in a spreadsheet en mass

hi chaps,

I've used this macro to find the list of links in a few of our spreadsheets;

http://www.exceltip.com/st/List,_cha...Excel/487.html

However I want to go one further and change any link with a double sharename in it (ie change it from \\servername\sharename\sharename\file to \\servername\sharename\file) after some doppy ***** here managed to corrupt 300+ links in almost 200+ spreadsheets with duff UNC paths.

Any ideas how I can do this or has someone got a script that can handle this that I could borrow?

Olly