Replace a value in a cell of a row - Idiot Proofing Forms Series

Hello,

First, your 'idiot proofing forms' series was fantastic! I used that series to create a checkbook register that acts like a form. In the 8th episode of the series is a series of steps to lookup a row in a data table and delete the row. Instead of deleting the row I would like to change the value in a cell in that row to "void".

The command in particular I am using is:

Set Rng = TransIdCol.Find(What:=SearchValue, _

            LookIn:=xlValues, _

            LookAt:=xlWhole, _

            SearchOrder:=xlByRows, _

            MatchCase:=False)

        If Not Rng Is Nothing Then

        Rng.EntireRow.Delete

Instead of deleting the row, I would like to change the contents of cell in column I of that row to "void". I've tried several other comands and am struggling to find the one that works.

Thanks in advance and thanks again for the tutorial!