If Trim(TB_staus.Text) = "????" Then
    Worksheets("lists").Select
    Worksheets("lists").Range("A5").Select
    If Worksheets("lists").Range("a5").Offset(1, 0) = CMB_Cavityenter.Value Then
        Worksheets("lists").Range("a5").End(xlDown).Select
    End If
    ActiveCell.Offset(0, 9).Select
    acitvecell.Value = Date
Else 'do nothing
End If