Macros Help Please! I need to delete one word in a cell

This macro does the trick (assuming the files are in a single folder and the items to replace are in a single sheet in each workbook):

Sub RemoveWordItem()
    Dim lCount As Long
    Dim vFileName As Variant
    Dim sPath As String
    Dim lFilecount As Long
    sPath = "c:\windows\temp\"
    ChDrive sPath
    ChDir sPath
    vFileName = Application.GetOpenFilename("Microsoft Excel files (*.xls*),*.xls*", , "Please select the file(s) to open", , True)
    If TypeName(vFileName) = "Boolean" Then Exit Sub
    For lCount = LBound(vFileName) To UBound(vFileName)
        ProcessFile CStr(vFileName(lCount))
    Next
End Sub


Sub ProcessFile(sFileName As String)
    Dim oSh As Worksheet
    Workbooks.Open sFileName
    With ActiveWorkbook.Worksheets("YourSHeetNameGoesHere")
        .Range("B:B").Replace What:="items", Replacement:="", LookAt:=xlPart, _
                              SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
                              ReplaceFormat:=False
    End With
    ActiveWorkbook.Close True
End Sub

Make sure you enter the right sheet name instead of "YourSHeetNameGoesHere"