Try this:

Set x = Application.InputBox("Select cells", "Selection", , , , , , 8)