VBA：セルの書式検索時、2回目のFindでエラーとなる

Question

Excelブックの各シートについて背景色が赤のセルが合った場合にシートのタブ色も赤色にするVBAを作成したいと考えています。
以下ように実装してみましたがFor文の2週目のFindのところで1004エラーが出てしまいます。原因は何でしょうか。

Sub SearchRedCell()

Application.FindFormat.Clear
Application.FindFormat.Interior.ColorIndex = 3

Dim i
For i = 1 To Sheets.Count
    Dim c
    Set c = Sheet(i).Range("A1", Cells(Rows.Count, Columns.Count)).Find(What:="*", SearchFormat:=True)
    If Not (c Is Nothing) Then
        Sheets(i).Tab.ColorIndex = 3
        Exit For
    End If
Next

End Sub

環境：
Windwos 7
Excel 2016

Answer 1

Set c = Sheet(i).Range("A1", Cells(Rows.Count, Columns.Count)).Find(What:="*", SearchFormat:=True)
↓
Set c = Sheets(i).Range("A1", Sheets(i).Cells(Rows.Count, Columns.Count)).Find(What:="*", SearchFormat:=True)

ただしシート全体は Cells でいいので、下記でも可。

Set c = Sheets(i).Cells.Find(What:="*", SearchFormat:=True)

Answer 2

＞Set c = Sheet(i).Range("A1", Cells(Rows.Count, Columns.Count)).Find(What:="", SearchFormat:=True)
↓
Set c = Sheet(i).Range("A1", Sheet(i).Cells(Rows.Count, Columns.Count)).Find(What:="", SearchFormat:=True)