Macro inserts date based on cell value

Currently I have the following macro that inserts a date in a cell as soon as another cell is clicked.
However I need it to only insert the date if the cell value is equal to COMPLETED.

Current macro.

private sub worksheet_selectionChange(byval target as range)
   If target.cells.count > 1 then exit sub
      If target.row > 1 and target column = 7 then
          Cells(target.row, "R") = Date
End if

End sub

Based upon your post it sounds to me like you would be better suiting using the Worksheet Change event instead of Worksheet SelectionChange

tRY:

Private Sub Worksheet_Change(ByVal Target As Range)

If Not Intersect(Target, Range("G2:G" & Rows.Count)) Is Nothing Then
    If Target.Value = "COMPLETED" Then
        Range("R" & Target.Row).Value = Date
    End If
End If

End Sub

Originally Posted by stnkynts

Based upon your post it sounds to me like you would be better suiting using the Worksheet Change event instead of Worksheet SelectionChange

tRY:

Private Sub Worksheet_Change(ByVal Target As Range)

If Not Intersect(Target, Range("G2:G" & Rows.Count)) Is Nothing Then
    If Target.Value = "COMPLETED" Then
        Range("R" & Target.Row).Value = Date
    End If
End If

End Sub

Works perfectly. Thanks,