...I found it on a german site.



http://www.schmittis-page.de/excel/vba/t48e.htm