Code to search for errors and replace with text?

[DomiDarko]

This needs to search only along the active row and its stumped me. Any help would be gratefully received.

 

[theBardd]

Brute force method

Dim cell As Range



    With ActiveSheet
    
        For Each cell In .Range(.Range("A7"), .Cells(7, .Columns.Count).End(xlToLeft)).Cells
        
            If IsError(cell.Value) Then cell.Value = "Error"
        Next cell
    End With