it fail in the function with the following error:
Error at Line 1207, (character 7)
Object required: 'tdList.Child(...)':
====================
for i = 1 to intCount
==> strElement = tdList.Child(i).Name
if strComp ( strElement, strName, vbTextCompare) = 0 then
code :
function Cust_isInList (tdList, strName)
blnInList = False
intCount = tdList.Count
for i = 1 to intCount
strElement = tdList.Child(i).Name
if strComp ( strElement, strName, vbTextCompare) = 0 then
blnInList = True
exit for
end if
next
Cust_isInList = blnInList