Inputbox - Cell/Range selection - Nothing selected or Cancel

[Daniel Klann]

Hi,

A small variation on DRJ's code:

Sub Test()
    Dim Selectedarea As Range
    On Error Resume Next
    Set Selectedarea = Application.InputBox(prompt:="Select the cell/range...", _
            Title:="SWITCH CELL SELECTION", Default:=Selection.Address, Type:=8)
    If Selectedarea Is Nothing Then
        MsgBox "You press Cancel, this procedure will now terminate."
        Exit Sub
    End If
    MsgBox Selectedarea.Cells.Count    'Change to do what you want if Cells.Count = 1
End Sub

HTH
Dan