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