Need Help On Listbox/combobox

I am trying to automate some of the manual tasks .I am progressing very well with that with help of this forum. Most of the samples I took from this site. Currently I am having difficulty in creating a listbox or Combobox in spreadsheet using programmatically (Dynamic).

Requirement is that if I click a button then it shoud create a new workbook and in Sheet1 and in Column 1 and in first 10 cells(a1,a2,a3,a4,a5,a6,a7,a8,a9,a10) , I need create a LISTBOX (MAY BE i AM REFERING A DROP DOWN BOX IN each CELL) having Foloowing values.
1-Workrequest
2-Problemstudy
3-Recovery
4-Other

I tried to find out the similar topics in this site and coul dnot found. It would be appreciated , if somebody could help me to guide me,

Joe

This code might get you where you need to go:

Private Sub CommandButton1_Click()
    Dim wk As Workbook
    Set wk = Workbooks.Add
    Windows(wk.Name).Activate
    
    With wk.Sheets("Sheet1").Range("A1:A10").Validation
        .Delete
        .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
        xlBetween, Formula1:="WorkRequest,ProblemStudy,Recovery,Other"
        .IgnoreBlank = True
        .InCellDropdown = True
        .InputTitle = ""
        .ErrorTitle = ""
        .InputMessage = ""
        .ErrorMessage = ""
        .ShowInput = True
        .ShowError = True
    End With
    wk.Sheets("Sheet1").Range("A1").Select
End Sub