Private Sub ComboBox1_KeyPress(ByVal KeyAscii As _ MSForms.ReturnInteger) If KeyAscii = vbKeyF1 Then 'Aquí haces tu código 'Te sugiero que hagas otro userform que contenga tu ListBox y lo muestres así: UserForm2.Show End If End Sub El código anexado...