Code falling over

[Gotroots]

I am getting an error when rng.Select is inserted into the following code:

If IsEmpty(Range("b9")) Then
MsgBox "No record found in B9.", vbInformation
Else
lngLastRow = Cells(Rows.Count, "B").End(xlUp).Row ' + 1

If lngLastRow <= 10 Then
Range("B10").Value = Range("B9").Value
Else
Cells(lngLastRow, "B").Value = Range("B9").Value
rng.Select
End If
End If

How should this be included without the code falling over.

Thank you if you can be of help.

 

[Gary''s Student]

Replace:
rng.Select
with:
If rng Is Nothing Then
Else
rng.Select
End If

 

[Rick Rothstein]

Where did "rng" come from? The only place I see it is in the statement you
are asking about... did you ever Set an actual range to this variable
earlier in your code somewhere? If so, then you need to look there for your
problem; if not, then that **is** your problem.

 

[Neptune Dinosaur]

You don't seem to be assigning (setting) anything to the variable "rng",
which presumably is an object variable ......