Run Time Error

[billandrew]

Unsure why I receiving a Run Time Error with the following code. Any help...

Thank You

With ActiveSheet.Range("A1:c25")    
    Set c = .Find(2020, LookIn:=xlValues)
    If Not c Is Nothing Then
        firstAddress = c.Address
        Do
            c.Value = "Replaced"
            Set c = .FindNext(c)
        Loop While Not c Is Nothing And c.Address <> firstAddress
    End If
    End With

 

[My Aswer Is This]

Are you looking for 2020 and want to replace it with Replaced.

If not please explain what your wanting to do.

 

[billandrew]

Yes sir.

 

[My Aswer Is This]

Try this:

Sub Find_Me()
'Modified  8/10/2018  8:11:23 PM  EDT
Range("A1:C25").Replace What:="2020", Replacement:="Replaced"
End Sub

 

[billandrew]

That worked well.. Most likely quicker & more efficient than a loop.

Thanks

 

[billandrew]

Meaning something like..

Sub Find_Alternative()

 Dim c As Range
 For Each c In Range("A2:C25")
 If c.Value = 2020 Then
 c.Value = "Replaced"
 End If
 Next


 End Sub

 

[My Aswer Is This]

Glad I was able to help you.
Come back here to Mr. Excel next time you need additional assistance.


With Excel there are probable 20 ways to do most anything.
Which way is fastest I do not know. I never test my scripts for speed.

And what is fast or slow is determined by the user.

Some users think 1.2 milliseconds is fast and some think it's slow.

 

[billandrew]

Thank You again.

always appreciated..