Simple code, But whats wrong with it? <Resolved>

[Armbruster]

I don't think you can add the range, I think you need to add each item one at a time . . .

Dim c As appExcel.Range
    appExcel.Workbooks.Open FileName:="C:\Program Files\LFhost\Maccrystal01.xls"
    appExcel.Worksheets("dblisting").Select
    For Each c In range("a1:a255").Cells
        cmbbx.AddItem  c.Text
    Next c