Combining Inputbox Types

[sparky2205]

I'm trying to come up with a solution to allow users either directly type an entry into an inputbox or alternatively select the entry from a list.
So something like:

Set personnel = Application.InputBox("Type a name or select a name from column B", Type:=2+8)

But of course this won't work as Type 2 is a string and Type 8 is a range.
Am I missing something simple or is there a workaround I can use?

I also tried:

If Not IsError(Application.InputBox("Select a name from column B", Type:=8)) Then
        Set personnel = Application.InputBox("Select a name from column B", Type:=8)
        Else:
        Set personnel = Application.InputBox("Enter a name", Type:=2)
End If

 

[Micron]

I would replicate an input box with a modal userform, especially if "by list" you mean something like a listbox. However, I think your list is probably a range on a sheet. In that case, you could present either a userform or message box and get the desired method first. Or present 2 options on a sheet via option buttons.