Dim filenum1 As Integer filenum1 = Freefile Open "C:\EmployeesTargetedForArchiving.TXT" For Append As filenum1 For J = 0 To Ubound(TargetArchiveArray) Write #filenum1 , TargetArchiveArray(J) Next J Close filenum1