Copy Chosen Combobox Value

I've created drop down box using VBA code. Data for drop down box is on the Sheet2 and drop down box created on Sheet1. Need code I have to use to copy selected value from box to any cell on Sheet1 (i.e. Sheet1.A5). Here is my

Private Sub Workbook_Open()
CreateMyBox
End Sub

Sub CreateMyBox()
Dim MyBox As Excel.Shape
With ActiveSheet
Set MyBox = .Shapes.AddFormControl(xlDropDown, 5, 17, 175, 15)
End With
With MyBox
.Name = "MyBox"
.Fill.ForeColor.RGB = RGB(255, 0, 0)..................