Share this Page URL
Help

UserForms > UserForms - Pg. 446

If itm.FullName <> "" And itm.CompanyName <> "" _ And itm.BusinessAddress <> "" Then 'Debug.Print "Adding " & itm.LastNameAndFirstName & " to array" strContactArray(lngRow, 0) = itm.LastNameAndFirstName strContactArray(lngRow, 1) = itm.CompanyName strContactArray(lngRow, 2) = itm.BusinessAddress strContactArray(lngRow, 3) = itm.FullName lngRow = lngRow + 1 End If End If Next Debug.Print lngRow & " filtered contacts" lst.List( ) = strContactArray ErrorHandlerExit: Exit Sub ErrorHandler: MsgBox "Error No: " & Err.Number & "; Description: " & Err.Description Resume ErrorHandlerExit End Sub Private Sub cmdMerge_Click( ) 'Written by Helen Feddema 5-21-2000 'Last modified 5-21-2000 On Error GoTo ErrorHandler