Thanks for you help Tom, it does exactly what i ment.
Only he said that fAddr whasn't defined so i had made a:
Dim fAddr
and i have placed een extra extra: End With, at the end.
maybe this isnt the way you have made it so please tell me if i did somthing wrong.

Thanks again

Chris