Add a Combo Box in a Excel cell Using VBA

Set objGEXCELapp = GetObject(, "EXCEL.Application")
If Err.Number <> 0 Then
Err.Clear
Set objGEXCELapp = CreateObject("EXCEL.Application")
End If
objGEXCELapp.Application.Visible = True
Set objGEXCELwkBks = objGEXCELapp.Application.Workbooks
Set objGEXCELwkBk = objGEXCELwkBks.Add
Set objGEXCELwkShs = objGEXCELwkBk.Worksheets(1)
Set objGEXCELSh = objGEXCELwkBk.Sheets(1)
objGEXCELSh.Cells(1, "A") = "Name"
objGEXCELSh.Cells(1, "B") = "Age"
objGEXCELSh.Cells(1, "C") = "Weight"
objGEXCELSh.Cells(1, "D") = "Height"
objGEXCELSh.Cells(1, "E") = "Sex"
objGEXCELSh.Cells(1, "F") = "Your Option"
objGEXCELSh.Cells(i, "A") = Dhini
objGEXCELSh.Cells(i, "B") = 22
objGEXCELSh.Cells(i, "C") = 73
objGEXCELSh.Cells(i, "D") = 165
objGEXCELSh.Cells(i, "E") = Male
objGEXCELSh.Cells(i, "F") = Here I need a Combobox to occupy in a cell to select

hey there !

Try this :

Set curCombo = ActiveSheet.Shapes.AddFormControl(xlDropDown, Left:=Cells(1, 1).Left, Top:=Cells(2, 1).Top, Width:=100, Height:=20)
With curCombo
.ControlFormat.DropDownLines = 2
.ControlFormat.AddItem "Item 1", 1
.ControlFormat.AddItem "item 2", 2
.Name = "myCombo"
.OnAction = "myCombo_Change"
End With

You can refer these links too ::

http://www.contextures.com/Excel-VBA-ComboBox-Lists.html

https://www.pcreview.co.uk/threads/inserting-combo-box-into-a-specific-range-cell-using-vba.3751323/

https://www.mrexcel.com/forum/excel-questions/815347-visual-basic-applications-create-combo-box-place-box-into-each-cell-range.html

Hope that helps !