userform combobox fills from selection on sheet

You could have adapted the code yourself

Sub Userform_Initialize()
  for j=1 to 5
   me("Combobox" & j).list=filter([transpose(if(C4:C13="X","~",B4:B13))],"~",false)
  next
End Sub