Sub Worksheet_Deactivate(ByVal Target As Range, Cancel As Boolean)
ThisWorkbook.Sheets("agent").Select
Worksheets("agent").Range("I23").ClearContents
Worksheets("agent").Range("L23").ClearContents
Worksheets("agent").Range("N23").ClearContents
Worksheets("agent").Rows("200").ClearContents