It looks like this should work great, but I'm not encountering the following
error:
"Compile Error: Named argument not found"

This error points to the "Selection.Find" statement below.  Any ideas?

Sub Verify_Data()
Dim vFormDistrictName As String
Dim vActualDistrictName As String
Dim vCDC1 As String
Dim vCDC2 As String
Dim vCDC3 As String
Dim vCountyDistrictNum As String
Dim vFormCampusName As String
Dim vActualCampusName As String
Dim oExcelApp As Object
Dim oXL As Excel.Application
Dim oWB As Excel.Workbook
Dim oSheet As Excel.Worksheet
Dim oRng As Excel.Range
Dim ExcelWasNotRunning As Boolean
Dim WorkbookToWorkOn As String

   vFormDistrictName = ActiveDocument.FormFields("District_Name").Result
   vCDC1 = ActiveDocument.FormFields("County_District_Num1").Result
   vCDC2 = ActiveDocument.FormFields("County_District_Num2").Result
   vCDC3 = ActiveDocument.FormFields("County_District_Num3").Result
   vFormCampusName = ActiveDocument.FormFields("Campus_Name").Result
   vCountyDistrictNum = vCDC1 & vCDC2

'specify the workbook to work on
   WorkbookToWorkOn = "S:\Security\Incident Tracking Database -
00Dev\Development\district_update_.xls"

'If Excel is running, get a handle on it; otherwise start a new instance of
Excel
   On Error Resume Next
   Set oXL = GetObject(, "Excel.Application")

   If Err Then
       ExcelWasNotRunning = True
       Set oXL = New Excel.Application
   End If

   On Error GoTo Err_Handler

'Open the workbook
   Set oWB = oXL.Workbooks.Open(FileName:=WorkbookToWorkOn)

'Process the workbook
   For Each oSheet In oXL.ActiveWorkbook.Worksheets

'Search in column A for the value found in vCountyDistrictNum
       Activecell.Columns("A:A").EntireColumn.Select
       Selection.Find(What:=vCountyDistrictNum, After:=Activecell,
LookIn:=xlFormulas, _
           LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext,
_
           MatchCase:=False, SearchFormat:=False).Activate

'Move one cell to the right and assign that value of that cell to
vActualDistrictName
       Activecell.Offset(0, 1).Range("A1").Select
       vActualDistrictName = Activecell.Value

       MsgBox "The actual district name is " & vActualDistrictName
   Next oSheet

   If ExcelWasNotRunning Then
       oXL.Quit
   End If

'Make sure you release object references.
   Set oRng = Nothing
   Set oSheet = Nothing
   Set oWB = Nothing
   Set oXL = Nothing

'quit
   Exit Sub

Err_Handler:
   MsgBox WorkbookToWorkOn & " caused a problem. " & Err.Description,
vbCritical, _
          "Error: " & Err.Number
   If ExcelWasNotRunning Then
       oXL.Quit
   End If

End Sub