Bara första posten i Arrayen Skrivs ut

            Dim arrpersonal As Variant
            
            strPersonal = Trim(persons2)
            arrpersonal = Split(strPersonal, ",", -1, 1)
            
            For Each strTemp In arrpersonal
                strEnPersonal = strTemp
     
                Do While startDate2 <= endDate2
                    DueDate2 = Format(startDate2, "yyyy-mm-dd")
                    personalPos = Application.Match(strEnPersonal, strPersonalCheck, False)
                    asd2 = insertInfo2(DueDate2, personalPos, title2)
                    startDate2 = DateAdd("d", 1, startDate2)
                Loop
            Next strTemp