Function activeXDetect(activeXname)
      activeXDetect = False
      on error resume next
      activeXDetect = IsObject(CreateObject(activeXname))
   End Function