Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Column = 9 And Cells(Target.Row, 1) <> "" Then
If Cells(Target.Row, 9) = "" Then
Cells(Target.Row, 9) = "X"
Cells(Target.Row, 9).Interior.Color = RGB(0, 255, 0)
Cells(Target.Row, 2).Interior.Color = RGB(0, 255, 0)
Else
Cells(Target.Row, 9) = ""
Cells(Target.Row, 9).Interior.Color = RGB(255, 255, 255)
Cells(Target.Row, 2).Interior.Color = RGB(255, 255, 255)
End If
End If
End Sub