En el formulario haz doble click en la lista desplegable y te creará la función donde agregas el código para seleccionar la celda; ejemplo:
Código vb:
Ver originalPrivate Sub Combobox1_Change()
' Primero verificas que se haya seleccionado un valor
If Combobox1.ListIndex = -1
MsgBox "Selecciona un valor"
Else
' La columna G es la #7, por lo que hay que agregar 6 para ubicar donde corresponde:
ActiveSheet.Cells(3, Combobox1.Value + 6).Select
' Si necesitas ocultar el formulario:
Unload Me
End If
End Sub