Thanks alot Tom, all working perfectly.

Tom Ogilvy Wrote:
Yes, I didn't completely revise the code (it is some of the sample code
from
the DIR command)

the offending line should actually be


If (GetAttr(s & MyName) And vbDirectory) = vbDirectory Then

--
Regards,
Tom Ogilvy





--
Object


------------------------------------------------------------------------
Object's Profile: http://www.excelforum.com/member.php...o&userid=33752
View this thread: http://www.excelforum.com/showthread...hreadid=537649