I try to do a macro that can find it some strings in some cells, but I have a error.

My code is:

```
Sub MACRO()
    bAlerts = Application.DisplayAlerts
    Application.DisplayAlerts = False
    Dim Totalrows As Integer
    Dim Totalcols As Integer
    Dim Valor As String
    For i = 1 To Worksheets.Count
        Totalrows = Worksheets(i).UsedRange.rows.Count
        Totalcols = Worksheets(i).UsedRange.Columns.Count
        For r = 1 To Totalrows
            For c = 1 To Totalcols
                If InStr(Worksheets(i).Cells(r, c), "cadena buscada") > 0 Then
                    MsgBox "Se encontró una coincidencia"
                End If
            Next c
        Next r
    Next i
    Application.DisplayAlerts = bAlerts
End Sub

```

I have an error in this line:

```
If InStr(Worksheets(i).Cells(r, c), "cadena buscada") > 0 Then

```

Anyone knows where is the error ?

Thanks!