Code falling over
You don't seem to be assigning (setting) anything to the variable "rng",
which presumably is an object variable ......
--
Time is just the thing that keeps everything from happening all at once
"Gotroots" wrote:
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.
|