Does anyone know how to adapt this VB code to work in Excel VBA? http://www.vbcity.com/forums/topic.asp?tid=108765 Thanks!