Please stay in the same thread.
You must copy the function also in the module

See my webpage
http://www.rondebruin.nl/mail/folder3/mail2.htm


--
Regards Ron de Bruin
http://www.rondebruin.nl



"es" wrote in message ...
Ron Thanks

new hickup


**.HTMLBody = SheetToHTML(ActiveSheet)
Error = Sub or function not defined