Public Sub InputBoxTest() Dim Answer As Range Set Answer = Application.InputBox(prompt:="Enter range", Type:=8) End Sub