Mega Code Archive

 

Categories / VisualBasic Script / Excel

 

Clean the comment

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