Oops, a typo here...
In the 3rd line, it should read:
Dim *House*(1 to 6) as string
instead of Dim Share(1 to 6) as string
Thank
--
silves
-----------------------------------------------------------------------
silvest's Profile:
http://www.excelforum.com/member.php...fo&userid=1466
View this thread:
http://www.excelforum.com/showthread.php?threadid=26283