Thanks for your help so far, but it is not working properly. I have only
recorded macros before, never written the code, so I probably did something
wrong.

Here is what happens: The macro attempts to work, but it removes the data
from the bill-to fields, leaving them blank, and then does not write any data
to the ship-to fields, so I end up with all the fields blank. Then I get a
run-time error 5941 "the requested member of the collection does not exist"
when it tries to advance to the next field for manual entry again.

I have double checked the field names and they are all correct, so I'm not
sure what the problem is. Either way, that wouldn't answer the disappearing
data problem.

Here is my code. The last field should advance to a radio button - is that a
problem?

Sub OnExitSame()
Dim oFlds As FormFields
Set oFlds = ActiveDocument.FormFields
If oFlds("Same").CheckBox.Value = True Then
 oFlds("ShopName").Result = oFlds("ShipTo").Result
 oFlds("First").Result = oFlds("ShipToFirst").Result
 oFlds("Middle").Result = oFlds("ShipToMiddle").Result
 oFlds("Last").Result = oFlds("ShipToLast").Result
 oFlds("HomeNo").Result = oFlds("ShipToHomeNo").Result
 oFlds("WorkNo").Result = oFlds("ShipToWorkNo").Result
 oFlds("CellNo").Result = oFlds("ShipToCellNo").Result
 oFlds("Address").Result = oFlds("ShipToAddress").Result
 oFlds("City").Result = oFlds("ShipToCity").Result
 oFlds("State").Result = oFlds("ShipToState").Result
 oFlds("Zip").Result = oFlds("ShipToZip").Result
 oFlds("LiftGateYes").Select
 Selection.Range.Fields(1).Result.Select
' Same Macro
' Macro recorded 8/4/2006 by CAC
End If
End Sub

Thanks so much, your help is greatly appreciated.
CAC