susan chaniago

Sub coba3()
OldValue = "OldValue"
NewValue = "NewValue"
With ActiveSheet
Firstrow = .UsedRange.Cells(1).Row
Lastrow = .UsedRange.Rows(.UsedRange.Rows.Count).Row
FirstColumn = .UsedRange.Cells(1).Column
LastColumn = .UsedRange.Columns(.UsedRange.Columns.Count).Column
For LCol = FirstColumn To LastColumn
For Lrow = Firstrow To Lastrow
With .Cells(Lrow, LCol)
If Not IsError(.Value) Then
If .Value = OldValue Then .Value = NewValue
End If
End With
Next Lrow
Next LCol
End With
End Sub