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