VERSION 5.00 Begin {C62A69F0-16DC-11CE-9E98-00AA00574A4F} part Caption = "Part Picker" ClientHeight = 1080 ClientLeft = 120 ClientTop = 465 ClientWidth = 8100 OleObjectBlob = "part.frx":0000 StartUpPosition = 1 'CenterOwner End Attribute VB_Name = "part" Attribute VB_GlobalNameSpace = False Attribute VB_Creatable = False Attribute VB_PredeclaredId = True Attribute VB_Exposed = False Public part As String Public bill As String Public ship As String Public useval As Boolean Option Explicit Private Sub cbPart_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer) Select Case KeyCode Case 13 useval = True Me.Hide Case 27 useval = False Me.Hide End Select End Sub Private Sub UserForm_Activate() useval = False cbPart.list = shSupportingData.ListObjects("ITEM").DataBodyRange.value End Sub