Dave,
Thanks for your reply, I have used the code and i get a type
mismatch.
'pick it up from the list worksheet
ListType = CLng(mySelectedCell.Offset(0, 8).Value)
--
bach
------------------------------------------------------------------------
bach's Profile:
http://www.excelforum.com/member.php...o&userid=26134
View this thread:
http://www.excelforum.com/showthread...hreadid=468634