< Back to User Guide

How To Split Your Large County Lists Into Smaller Mailing List (Campaigns) That You Can Import Into The CRM

We get the question sometimes “how do you split a large county lists into smaller mailing lists that you can import into the CRM?”. It is actually quite simple and there is two ways you can go about doing this…

  1. You can have a professional data processor do this for you when they are formatting your list for the investment dominator.OR…
  2. If you have a little bit of knowledge about data processing, you can do this with a VB script in Excel.

The script that we use to split up our county lists into smaller mailing lists goes something like this…

Sub Split()
splitCount = 100
destinationLocation = "sample list\"
Dim rLastCell As range
Dim rCells As range
Dim strName As String
Dim lLoop As Long, lCopy As Long
Dim wbNew As Workbook
With ThisWorkbook.Sheets(1)
Set rLastCell = .Cells.Find(What:="*", After:=[A1], SearchDirection:=xlPrevious)
For lLoop = 2 To rLastCell.Row Step splitCount-1
lCopy = lCopy + 1
Set wbNew = Workbooks.Add
.Cells(1, 1).EntireRow.Copy _
Destination:=wbNew.Sheets(1).range("A1")
.range(.Cells(lLoop, 1), .Cells(lLoop + splitCount-1, .Columns.Count)).EntireRow.Copy _
Destination:=wbNew.Sheets(1).range("A2")
wbNew.SaveAs FileName:= destinationLocation & "List_" & format(lLoop + (splitCount-2),"0000") & ".csv", FileFormat:=xlCSV, Local:=True
wbNew.Close SaveChanges:=False
Next lLoop
End With
End Sub

The only variables you need to change are…
splitCount = 100
destinationLocation = "sample list\"

splitCounty is the number of records you want in each .csv file and destinationLocation is the path of where you want these new .csv files saved on your computer. By default if you leave the destinationLocation variable blank =”” then it will save it in your Documents folder.