Private Function CleanComment(author As String, cmt As String) As String Dim tmp As String tmp = Application.WorksheetFunction.Substitute(cmt, author & ":", "") tmp = Application.WorksheetFunction.Substitute(tmp, Chr(10), "") CleanComment = tmp End Function