Following is untested code but the example is how I would handle multiple scenarios by using the Select Case method
Sub Worksheet_Change(ByVal Target As Range)
Dim xCellColumn As Integer
Dim xTimeColumn As Integer
Dim xRow, xCol As Integer
Dim xDPRg, xRg As Range
xCellColumn = 16
xTimeColumn = 19
xRow = Target.Row
xCol = Target.Column
Select Case Target.Text
Case "In Process"
If xCol = xCellColumn Then
Cells(xRow, xTimeColumn) = Now()
Else
On Error Resume Next
Set xDPRg = Target.Dependents
For Each xRg In xDPRg
If xRg.Column = xCellColumn Then
Cells(xRg.Row, xTimeColumn) = Now()
End If
Next
End If
Case "Accept"
'Code here for Accept
Case "other" 'Example only for adding additional cases if required
Case Else
'code here if none of the above cases. (Not essential. Only use if required
End Select
End Sub