如何将此查找和移动代码应用于excel工作簿中的所有工作表？

Sub FindAndMoveData()
    Dim ws As Worksheet
    Dim searchRange As Range
    Dim foundCell As Range
    Dim moveRange As Range
    
    ' 遍历所有工作表
    For Each ws In ThisWorkbook.Worksheets
        ' 设置要搜索的范围
        Set searchRange = ws.UsedRange
        
        ' 在范围内查找目标值
        Set foundCell = searchRange.Find("目标值")
        
        ' 如果找到目标值
        If Not foundCell Is Nothing Then
            ' 设置要移动的范围（例如，将找到的单元格及其相邻单元格移动到另一个工作表）
            Set moveRange = foundCell.Resize(1, 2)
            
            ' 将移动范围的值复制到另一个工作表
            moveRange.Copy Destination:=Sheets("目标工作表名称").Range("A1")
            
            ' 清除移动范围的值
            moveRange.ClearContents
        End If
    Next ws
End Sub