amending some code to include an if clause.

Good afternoon.

I have some code below which as you can see puts the word "closed" into col g when a value is entered into col AF. This is fine however, I am trying to amend to code slightly to include.... if the status of col G is "Re-opened" and a date is entered into AF then G should say "re-opened closed"

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
    Dim rng As Range
    Dim rCell As Range
    Set rng = Range("AF10:AF5000")
    If Not Intersect(Target, rng) Is Nothing Then
        For Each rCell In Intersect(Target, rng).Cells
            If Len(rCell.Value) > 0 Then
               ' MsgBox "Cell " & _
                       rCell.Address & " = PLEASE remember to change the complaint status to CLOSED"
                ' OR USE
                 Application.EnableEvents = False
                 Cells(rCell.Row, "G").Value = "Closed"
                 Application.EnableEvents = True
            End If
        Next rCell
    End If

    Set rng = Nothing

End Sub

Thanks for looking