VBA Return strings multiple times on clicked cell 1

[HU42315]

This macro in excel has user click on a question, sends them to the answer, then when they click on "Return to List of Questions" it places "Reviewed" string next to the question they reviewed. I want this to repeat this process for the rest of the questions in each row, but can get it to work only for the first question. Attaching file with code so far.

 

[SkipVought]

Hi,

Public lLastRow As Long
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Cells(Target.Row, "B").Value > 0 Then
        lLastRow = Target.Row
    Else
        Cells(lLastRow, "A").Value = "Reviewed"
    End If
End Sub

Skip,

_{Just traded in my old subtlety...
for a NUANCE!}