Help with inputbox

[ColdGeorge]

Hi all

I'd appreciate your assistance in order to prevent errors with an input box, this is the code

Dim selection As Range
Dim rng As Range

Set selection = Application.InputBox("First, select a range", "Title Here", Type:=8)

Set rng = Application.InputBox("Now, select a cell", "Title Here", Type:=8)

selection.Cut rng

Thanks in advance
ColdGeorge

 

[Michael M]

Why select a range...then select a cell ??
Why not simply

Set rng = Application.InputBox("First, select a range", "Title Here", Type:=8
rng.cut

 

[kvsrinivasamurthy]

Try.

Dim selection As Range
Dim rng As Range

Set selection = Application.InputBox("First, select a range", "Title Here", Type:=8)
Line1:
Set rng = Application.InputBox("Now, select a cell", "Title Here", Type:=8)
If rng.Cells.Count > 1 Then
MsgBox "Select single cell only"
GoTo Line1
End If

selection.Cut rng

 

[ColdGeorge]

Hi all

Dim selection As Range
Dim rng As Range

'Selecting range to move
Set selection = Application.InputBox("First, select a range", "Title Here", Type:=8)

'Selecting cell to paste
Set rng = Application.InputBox("Now, select a cell", "Title Here", Type:=8)

'Pasting
selection.Cut rng

I hope this make sense, I need help to prevent error when Input box is empty, Cancel or Esc key is hit, thanks.

ColdGeorge

 

[abdelfattah]

@ColdGeorge
see if that work for you.

Sub n()
Dim selection As Range
Dim rng As Range
Application.DisplayAlerts = False
'Selecting range to move
On Error GoTo Canceled
Set selection = Application.InputBox("First, select a range", "Title Here", Type:=8)
'Selecting cell to paste
Set rng = Application.InputBox("Now, select a cell", "Title Here", Type:=8)
'Pasting
selection.Cut rng
1 Canceled:
2 End Sub

 

[Scott Huish]

I wouldn't use selection as a variable name, it's a VBA keyword, and that can cause problems.

 

[ColdGeorge]

Hi

abdelfattah, thanks for yor help.
Scott Huish, good point, I'll consider it, thanks.

ColdGeorge