Hey Bear,

I used Word XP for the code below.  I also have an add-in using the code for
2003.  Are you using Word 2000?  Also, which reference type are you using on
GetReferenceItems?  wdRefTypeNumberedItem or wdRefTypeHeading?  If you're
using RefTypeHeading, try using RefNumberedItems instead to see what happens.

zkid:

Here's some code that will illustrate my issue:

Sub y()

Dim varXrefs As Variant
Dim I As Long

On Error Resume Next

varXrefs = ActiveDocument.GetCrossReferenceItems _
   (ReferenceType:=wdRefTypeHeading)
For I = 1 To UBound(varXrefs)
   Selection.InsertAfter varXrefs(I) & vbNewLine
Next I

For I = 1 To UBound(varXrefs)
   Selection.Range.InsertCrossReference _
       ReferenceType:=wdRefTypeHeading, _
       ReferenceKind:=wdContentText, _
       ReferenceItem:=I, _
       InsertAsHyperlink:=False, _
       IncludePosition:=False
   Selection.EndKey Unit:=wdLine
   Selection.InsertAfter vbNewLine
   Selection.Collapse direction:=wdCollapseEnd
Next I

End Sub

I've been putting a break point at the beginning of the InsertCrossReference
loop. I put the first loop (from printing varXrefs) in the left column of a
two-column table. At the break, I put the insertion point in the right colum
and then continue.

Either with or without the On Error Resume next, varXrefs gets filled by  
GetCrossReferenceItems.

However, if you have a Heading 1 para with no content,
GetCrossReferenceItems simply skips that para and keeps on filling the array
at the next non-null para. (Lower-level items never get "skipped" because the
indentation space characters are inserted before Word notices that the para
is empty.)

Without Resume Next, the InsertCrossReference generates an error when it
hits the index number of the empty paras, whether they are Heading 1 or lower.

With Resume Next, the two empty paras get skipped, and more important, the
subsequent items shifted are off from the "correct" index number.

Bear

Bear, when you load the list box from the cross-reference container, you can
use a for loop to check to determine if each entry is empty, yes?  Then, if
so, don't load it into the list box.  Will that work?