Question Excel Macro to Automate Skill/Level changes for Avaya CMS

Sub SkillThemAgents() Dim cvsApp As New ACSUP.cvsApplication Dim cvsConn As New ACSCN.cvsConnection Dim cvsSrv As New ACSUPSRV.cvsServer Dim op As ACSFE.cvsOperation Dim AgMngObj As acsaa.cvsAgentMgmt If cvsApp.CreateServer(UserName, "", "", Server, False, "ENU", cvsSrv, cvsConn) Then If cvsConn.Login(UserName, Password, Server, "ENU") Then '=========================================================== Dim Lastrow As Long Dim LastCol As Long Dim wsMain As Worksheet Set wsMain = Sheets("Main") Dim l As Integer Dim c As Integer Dim p As Integer Dim S As Integer Dim t As Integer Dim Skill As String Dim Prtr As Integer Dim SetArr() As Variant S = 1 Lastrow = wsMain.Range("a" & wsMain.Rows.Count).End(xlUp).Row For l = 2 To Lastrow LastCol = wsMain.Range("a" & l).End(xlToRight).Column For c = 5 To LastCol Step 2 On Error Resume Next Skill = wsMain.Cells(l, c).Value Prtr = wsMain.Cells(l, c + 1).Value Set AgMngObj = cvsSrv.AgentMgmt ReDim SetArr(3, 3) SetArr(S, 1) = Skill SetArr(S, 2) = Prtr SetArr(S, 3) = 0 S = S + 1 Next c AgMngObj.AcdStartUp -1, "", cvsSrv.ServerKey, -1 AgMngObj.OleAgentSetSkill 2, "1029968", 1, 0, 0, 0, 3, SetArr, "" S = 1 Next l MsgBox "Skill Change completed." '===================com====================================== Else Select Case cvsConn.LoginState Case cpBadLogin Call MsgBox("CMS Username Invalid: " & cvsConn.sInputBuffer & " " & cvsConn.User, vbOKOnly + vbInformation, "CMS") Case cpWaiting Call MsgBox("Waiting for CMS Server to respond." & vbCrLf & _ "Verify server address is correct." & vbCrLf & _ "Aborted", vbOKOnly + vbInformation, "CMS") Case Else Call MsgBox("Can not connect to CMS Server (" & CStr(cvsConn.LoginState) & ")", vbOKOnly + vbInformation, "CMS") End Select End If Else Call MsgBox("Unable to create CMS Server connection." & vbCrLf & _ "Verify CMS is installed properly.", vbOKOnly + vbInformation) End If On Error GoTo 0 Set AgMngObj = Nothing cvsSrv.ActiveTasks.Refresh cvsApp.Servers.Remove cvsSrv.ServerKey cvsSrv.Connected = False cvsConn.logout cvsConn.Disconnect cvsSrv.ActiveTasks.Refresh Set cvsConn = Nothing Set cvsSrv = Nothing Set cvsApp = Nothing Set op = Nothing Set sh = Nothing End Sub

S= 1 C = 5 Skill = wsMain.Cells(l, c).Value Prtr = wsMain.Cells(l, c + 1).Value ReDim SetArr(3, 3) SetArr(S, 1) = Skill SetArr(S, 2) = Prtr SetArr(S, 3) = 0 S = S + 1 C=c+1 ' next skilland prt SetArr(S, 1) = Skill SetArr(S, 2) = Prtr SetArr(S, 3) = 0 S = S + 1 C=c+1 ' next skilland prt SetArr(S, 1) = Skill SetArr(S, 2) = Prtr SetArr(S, 3) = 0

SetArr(1, 1) = Skill '1st SetArr(1, 2) = Prtr SetArr(1, 3) = 0 SetArr(2, 1) = Skill '2nd SetArr(2, 2) = Prtr SetArr(2, 3) = 0 SetArr(3, 1) = Skill '3rd SetArr(3, 2) = Prtr SetArr(3, 3) = 0