Use an Input box to select a range

[Paul_Hossler]

Sub Like_This() '<---- Thanks to RoyUK Dim Rng As Range Set Rng = Application.InputBox(Prompt:="Please select a range with dragging your mouse pointer", Title:="Selection required", Default:="Drag the mouse to make a selection.", Type:=8) Rng.Value = "Hello" End Sub

Just be advised that there's no error or resonableness checking


If you [Cancel] you get an Object Required error


If you select an entire column or columns, then it goes everywhere. Same for entire row(s)