【VBA】開いている全ブックの特定セルを完全一致でクリアする方法

Option Explicit
Sub ClearSpecificCells()
    Dim wb As Workbook, ws As Worksheet
    Dim searchValue As String
    ' 検索したい値を指定
    searchValue = "特定の文字列"
    
    Application.ScreenUpdating = False
    For Each wb In Workbooks
        If Not wb.Name = ThisWorkbook.Name Then
            For Each ws In wb.Sheets
                Dim cell As Range, foundCell As Range
                Set foundCell = ws.Cells.Find(What:=searchValue, LookIn:=xlValues, LookAt:=xlWhole)
                If Not foundCell Is Nothing Then
                    Do
                        foundCell.ClearContents
                        Set foundCell = ws.Cells.FindNext(foundCell)
                    Loop While Not foundCell Is Nothing And foundCell.Address <> ws.Cells(1, 1).Address
                End If
            Next ws
        End If
    Next wb
    Application.ScreenUpdating = True
End Sub