On Error Resume Next
Set SRC = Application.InputBox(PROMPT:="Select The First Cell of The
Source Data." & vbNewLine & vbNewLine, Type:=8)
If Err.Number < 0 Then Exit Sub
On Error GoTo 0

HTH
Daniel


I have the following code but upon clicking the cancel button it is resulting
in Run-time error '424' Object required.

Any suggestions?

Set SRC = Application.InputBox(PROMPT:="Select The First Cell of The
Source Data." & vbNewLine & vbNewLine, Type:=8)
If vbCancel Then
Exit Sub
End If