Insert Combobox in VBA code

[jakobt]

Have a VBAcode:

Want the user to be able to select the variable "entity" by selecting a row in a combobox...

The combobox should have 2 columns with

Entity; Entityname
200 ; Google
201 ; Amazon
202 ; Microsoft

sub opentb()

dim wb1 as workbook
dim wb2 as workbook

set wb1 = activeworkbook

dim myvalue as variant
dim entity as variant

myvalue = inputbox("example: 0219", "which perio should TB b run for")
Range("z5000").value = myvalue
entity = inputbox("Example: 253B", "Which entity should TB be run for")
range("z5001").value = entity

workbooks.open Filenae: "S:\lon" &myvalue & ".xlsx"
set wb2= activeworkbook

sheets(entity).select
range("A1:5000").copy
wb1.activate
range("a1").select
activesheet.paste
wb2.close

end sub