Add a Combo Box in a Excel cell Using VBA

Question

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

I need a combobox in my cell .Please give me a solution.