Message Box Display of Variable From a Different Sub

[gmaxey]

You could put the status description in another column of the combobox:

Private Sub CommandButton1_Click()
  MsgBox "You picked " & ComboBox1.Column(0) & " and the text associated with this item is " & ComboBox1.Column(1)
End Sub

Private Sub UserForm_Initialize()
Dim lngIndex As Long
Dim A() As String, B() As String
  A = Split("Data1,Data2,Data3,Data4,Data5,Data6", ",")
  B = Split("AAA,BBB,CCC,DDD,EEE,FFF", ",")
  For lngIndex = 0 To UBound(A)
    With ComboBox1
      .AddItem
      .List(.ListCount - 1, 0) = A(lngIndex)
      .List(.ListCount - 1, 1) = B(lngIndex)
    End With
  Next
End Sub