Public Sub SelectRange() Dim aRange As Range On Error Resume Next Set aRange = Application.InputBox(prompt:="Enter range", Type:=8) If aRange Is Nothing Then MsgBox "Operation Cancelled" Else aRange.Select End If End Sub