I've tried:

Private Sub CmdOK_Click()
With FrmZoneSheet.EU1list
FillArray
End With

Unload Me
End Sub

this does not work. The error message still shows "Object required"

I've also tried:

Private Sub CmdOK_Click()

With FrmZoneSheet.EU1list

Dim i As Integer
Dim j As Integer
Dim k As Integer
Dim myarr() As String
ReDim myarr(FrmZoneSheet.Eulist.ListCount - 1)
k = 1

For i = 0 To FrmZoneSheet.Eulist.ListCount - 1

If FrmZoneSheet.Eulist.Selected(i) = True Then

myarr(j) = FrmZoneSheet.Eulist.List(i)
Sheets("Zone Table format").Cells((k), "A") = myarr(j)
j = j + 1
k = k + 1

End If
Next i
ReDim Preserve myarr(j)
End With

Unload Me
End Sub

his generates the error message: "method or data member not found


Any other suggestions

-----------------------------------------------
~~ Message posted from http://www.ExcelTip.com
~~View and post usenet messages directly from http://www.ExcelForum.com

~~Now Available: Financial Statements.xls, a step by step guide to creating financial statements