Then replace this line...
If InStr(1, cell.Value, "called in", vbTextCompare) > 0 Then cell.Value = ""
with this...
If InStr(1, cell.Value, "called in", vbTextCompare) > 0 Then cell.Value = Replace(cell.Value, "called in", "")
Saurabh....