Bienabee

Const Domain = "DEFAULT"

Const Project = "RAMA_TZC_TEMP"

Const UserName = "chris.carpenter"

Const QC_URL = "http://un-s-hpalm-02.dev.trizetto.com:8080/qcbin"

Const GetPassword = "xxxx"

Sub ALM_Update_Client_List()

    Set TDC = CreateObject("TDApiOle80.TDConnection")

    TDC.InitConnectionEx QC_URL

    TDC.Login UserName, GetPassword

    TDC.Connect Domain, Project

    Dim custom, objLists

    Dim objList, objNode

    Set custom = TDC.Customization

    Set objLists = custom.Lists

       If objLists.IsListExist("TZC_ClientList") Then

          objLists.RemoveList ("TZC_ClientList")

          objLists.AddList ("TZC_ClientList")

         Else

          objLists.AddList ("TZC_ClientList")

       End If

       custom.Commit

       Set objList = objLists.List("TZC_ClientList")

       Set objNode = objList.RootNode

       Range("D2").Select

      rc = ActiveCell.Value

       Do Until (ActiveCell.Value = "")

                objNode.AddChild ActiveCell.Value

                ActiveCell.Offset(1, 0).Activate

       Loop

        custom.Commit

TDC.Logout

End Sub