Hi,
The above program will not work if you have no Alignments in the first site
of your sites collections.
The error occurs as you cannot do the line
ReDim Preserve g_AlignsArr(nAlignCount - 1)
when nAlignCount = 0
Add the If statement as shown below to overcome this deficiency.
If nAlignCount > 0 Then
ReDim Preserve g_AlignsArr(nAlignCount - 1)
For Each oAlign In oSite.Alignments
Set g_AlignsArr(nCurAlignIndex) = oAlign
Combo_Align.AddItem (oAlign.Name)
nCurAlignIndex = nCurAlignIndex + 1
Next
End If
--
Laurie Comerford
CADApps
www.cadapps.com.au