Hey all,

In this line of code, does anyone know why it breaks and says object required:

Sub Explorer()

Dim lngLastRow As Long
lngLastRow = ActiveSheet.Range("A" & Rows.Count).End(xlUp).Row
Dim CleanString As String

Dim i
For i = 1 To lngLastRow

CleanString = ActiveSheet.Cells(i, 1).Value

LResult = Right(ActiveSheet.Cells(i, 1), 2).Value 'This is where it breaks
The last line pasted above is where it breaks. basically I am just trying to extract the last two characters of the current cell so that I can then use a switch statement to iterate through the length of cell A.

Thanks for response.