Code is choking. Any help?

[fabriciofcmiranda]

Does anyone know why this code isn't working?

Sub InsertRowNumber()
    Dim rng As Range
    On Error Resume Next
    Set rng = Application.InputBox(prompt:="Select the code of the invoice.", _
    Title:="Code", Default:=Selection.Address, Type:=8)
    On Error GoTo 0
    If Not rng Is Nothing Then
      If Not rng.Address = ActiveCell.Address Then rng.Copy
    Else
      Exit Sub
    End If
    Sheets("Report").Select
    Range("report_condigoentrada").Select
    ActiveSheet.Paste    
    Selection.EntireRow.Hidden = False
    Application.CutCopyMode = False
    Range("report_inicio").Select
End Sub

The code is choking on "Range("report_condigoentrada").Select". I'd appreciate if someone could help me with this one.

 

[Von Pookie]

I'm assuming that by "choking" you mean that that statement causes an error? What is the error?

Does a range named "report_condigoentrada" exist? If it does, is it on that page?

Incidentally, you don't have to select a range in order to paste to it:

If Not rng.Address = ActiveCell.Address Then rng.Copy     Destination:=Sheets("Report").Range("report_condigoentrada")

 

[fabriciofcmiranda]

You're right, Von Pookie. I mistyped the "report_condigoentrada" on the code (the correct is "report_codigoentrada"). That was the problem.
Your post was also very helpful to simplify my code.
Thank you so much for your help and attention (as always).
Best regards,
FM