remove cell contents if contains certain word in a specific column

Sub Macro1()

    Sheet1.Columns("B:B").Replace What:="text", Replacement:="", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
    
End Sub