查找有关键字的单元格，并将这些单元格选择

请问如何通过vba实现？
目前我想到的办法是“先ctrl+f 查找全部再选择，VBA输入selection.value=“文字”

Sub FindCells()
    Dim cell As Range
    Dim keyword As String
    
    ' 设置要查找的关键字
    keyword = "关键字"
    
    ' 循环遍历每个单元格，查找包含关键字的单元格
    For Each cell In ActiveSheet.UsedRange
        If InStr(cell.Value, keyword) > 0 Then
            ' 如果单元格包含关键字，选中该单元格
            cell.Select
        End If
    Next cell
End Sub

换成你自己想要的关键字就好。