Excel Macro Search Debug Error

[Legacy 185509]

I am using a button and using search to search for term "Resize to show all values" currently it is searching for term and selecting it, but if it is not found it shows me debug error
please help me fix this error, if result is not found I want it do nothing may be if result is not found select cell A1 or something like that here is my code

Private Sub CommandButton2_Click()
Range("C1").Select
Cells.Find(What:="resize to show all values", After:=ActiveCell, LookIn:= _
        xlValues, LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext _
        , MatchCase:=False, SearchFormat:=False).Activate

End Sub

 

[Legacy 185509]

can someone help plz

 

[CharlesChuckieCharles]

Find returns a value error when it can't find the searched for string

you may have to cope with that in your code

 

[Legacy 185509]

I don't know how

 

[jmthompson]

What do you want the macro to do after it selects the cell with that value?

 

[sous2817]

Here is one way:

Sub test()
On Error Resume Next
Cells.Find(What:="resize to show all values", After:=ActiveCell, LookIn:= _
        xlValues, LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext _
        , MatchCase:=False, SearchFormat:=False).Activate
On Error GoTo 0

End Sub

 

[Legacy 185509]

What do you want the macro to do after it selects the cell with that value?

after that button finds the result and it will select the cell and automatically it will open a bar on right side in that bar I have to manually click ok for "Resize to show all values" to generate/fetch data.
can you suggest any better way to do this?
check out this picture
for J25 it use to show "Resize to show all values" and I manually clicked ok or apply on right bar

 

[mikerickson]

Something like

Dim foundCell as Range

Set foundCell = Cells.Find(...)

If Not foundCell Is Nothing Then
    Rem do Stuff
End If

 

[Legacy 185509]

Here is one way:

Sub test()
On Error Resume Next
Cells.Find(What:="resize to show all values", After:=ActiveCell, LookIn:= _
        xlValues, LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext _
        , MatchCase:=False, SearchFormat:=False).Activate
On Error GoTo 0

End Sub

that works but instead of 0... meaning this is going on top of the row/column all the time, can it go to column A or somewhere in column it because I have to click A19 every click

 

[sous2817]

Use mikerickson's solution...much better.

For what it's worth, mine doesn't go to 0 (a spreadsheet location) it turns error checking back on.