Hi Edgar,

Try this

Check_Dlg.ListBoxes.Add 78, 100, 150, 16.5

change the position values to suit. To load it, use

Check_Dlg.Listboxes(1).AddItem "value1"

--

HTH

Bob Phillips
... looking out across Poole Harbour to the Purbecks
(remove nothere from the email address if mailing direct)

"Edgar Thoemmes" wrote in message
...
Hi

I have the following code but I cannot seem to add a
ListBox to my DialogBox!

Sub Check_Emails()
Dim Check_Dlg As DialogSheet

Set CurrentSheet = ActiveSheet
Set Check_Dlg = ActiveWorkbook.DialogSheets.Add
Check_Dlg.ListBox.Add

End Sub

Also can any give me any tips on positioning the list box
on the dialogsheet?

TIA