Excel ： FindNextメソッドで複数検索する

'FindNextで検索
Private Sub CommandButton1_Click()
    Dim tRange As Range
    Dim fAddress As String
    Dim s1 As String
    Dim nCount As Integer
    
    s1 = TextBox1.Value
    If s1 = "" Then
        MsgBox "検索名を入力してください。"
        Exit Sub
    End If
        
    Set tRange = Worksheets("Sheet1").Range("B10:F56").Find(s1)

    If tRange Is Nothing Then
        MsgBox "見つかりませんでした。"
    Else
        
        '最初に見つかったセル位置を保存
        fAddress = tRange.Address
        nCount = 0
        
        'ループでFindNextを使う
        Do
            If Not tRange Is Nothing Then
                nCount = nCount + 1
                MsgBox nCount & "個目： " & tRange.Address & " に見つかりました"
            End If
            Set tRange = Worksheets("Sheet1").Range("B10:F56").FindNext(tRange)
        Loop While Not tRange Is Nothing And tRange.Address <> fAddress
        
    End If
End Sub