Of course, you need: ListBox1.ColumnCount = 1

Then after: ListBox1.AddItem f1.Name
Insert: ListBox1.List(ListBox1.ListCount - 1, 1) = "whatever"

HTH,
Merjet