Here's where I'm at:

I want to have a drop down box value determine what values to return to
other fields from Excel.

I have dropdown1 and I currently use the Case process (Case 1, Case 2,
etc.).  Problem is you have to keep modifying the macro to add new values.

I'd like Word to search an Excel spreadsheet and return a specific value
(kind of like how DLookup works) back to a cell in the Word Doc.  Here's what
I have so far:

Sub SetToInformation()
   Select Case _
       ActiveDocument.FormFields("ATTNBox").DropDown.Value
   Case 1
       ToBoxTemp = " "
       FaxNumberTemp = "(000) 000-0000"
       TelNumberTemp = "(000) 000-0000"
   Case 2
       ToBoxTemp = "Citibank"
       FaxNumberTemp = "(800) 846-6444"
       TelNumberTemp = "(585) 248-7254"
   Case 3
       ToBoxTemp = "EDFUND"
       FaxNumberTemp = "(123) 456-7890"
       TelNumberTemp = "(098) 765-4321"
   Case Else
       ToBoxTemp = ""
       FaxNumberTemp = "(999) 999-9999"
       TelNumberTemp = "(999) 999-9999"
   End Select
   ActiveDocument.FormFields("ToBox").Result = ToBoxTemp
   ActiveDocument.FormFields("FaxNumber").Result = FaxNumberTemp
   ActiveDocument.FormFields("TelNumber").Result = TelNumberTemp

End Sub

I'm not sure if this will work to get the Excel sheet open, I get a "User
Defined type not defined" error on the line marked with an **:

   Dim FAXApp As excel.Application **
   Dim FAXBook As excel.Workbook
   Dim FAXSheet As excel.sheet
   Dim FAXData As Variant
   Dim ListCount As Long
   Dim ToBoxTemp As String
   Dim FaxNumberTemp As String
   Dim TelNumberTemp As String
   
   Set FAXApp = GetObject(, "Excel Application")
   Set FAXBook = FAXApp.Workbooks.Open("G:\A F S\Document Templates\FAX
COVER SHEET\FAX.xls")
   Set FAXSheet = FAXBook.Worksheets(1)
   
   FAXData = FAXSheet.Range("A2:D3").Value

Any help would be greatly appreciated!