HI
The below code produces a runtime error I3 Type mismatch
It removes all text in a cell (string) before the last ""
ActiveWorkbook.Worksheets(z).Cells(i, 5).Formula = "=Right(d" & i & ", Len(d" & i & ") - Find(""@"", Substitute(d" & i & ", " \ ", ""@"", (Len(d" & i & ") - Len(Substitute(d"...