compile error expected end of statement

[Bandito1]

Hi all,

Found the code below on internet in play text (with no "enters).
I tried to turn it into normale code but i get complile error

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim lRow As Long
Dim lCol As Long
Static lPrevRow As Long

'Restore previous active row to...light blue dotted line
If lPrevRow > 0 Then
Range("A" & lPrevRow, "AK" & lPrevRow).BorderAround Weight:=xlHairline, Color:=RGB(162, 200, 255)
End If
'Highlight current row with a red border
lRow = Target.Row Range("A" & lRow, "AK" & lRow).BorderAround Weight:=xlThin, Color:=RGB(255, 0, 0) lPrevRow = lRow

End Sub

The code should highlight the current row with a red border when a cell is selected

 

[Joe4]

Can you post the link to where you found this code?

 

[RoryA]

The last line should be three lines:

lRow = Target.Row
Range("A" & lRow, "AK" & lRow).BorderAround Weight:=xlThin, Color:=RGB(255, 0, 0)
lPrevRow = lRow

 

[Bandito1]

Can you post the link to where you found this code?

How to auto-highlight row and column of active cell in Excel?

www.extendoffice.com

In the comments (that's why plain text)
The comment from user Ravefromdave

 

[Bandito1]

The code leaves a blue line when I click somewhere else (duh code comment tells).
How to tell that it shouldn't leave anything but keep the previous layout?
Can't change it into Borderaround = none cause there are some borders. I don't want to remove those.

So when i select cell red border but when i click somewhere else nothing changed