Take the current text value, and add the message "INVALID: " before the text
Sub MyMacro ActiveCell.Value = "INVALID: " & ActiveCell.Value End Sub