1
Abre el Editor de Visual Basic (VBE ) con la tecla " Alt" y " F11 " de la hoja de cálculo Excel.
2
Abra un nuevo módulo ( una . " módulo" página en blanco) haciendo clic en "Insertar " y luego elegir
3
Escriba lo siguiente en el módulo: Sub
listbox () ' listbox MacroActiveSheet . . ListBoxes.Add ( 229.2 , 52.2 , 72, 69.6 ) SelectWith Selection.ListFillRange = "$ A $ 2: $ A $ 4" LinkedCell = "$ A $ 2: $ A $ 4" . . MultiSelect = xlNone.Display3DShading = FalseEnd WithRange ( " E3 ") . SelectEnd Sub
4
Ejecutar la rutina pulsando la tecla" F5 " .