VB Code:
Dim objXLAPP
Dim intRowCounter
Set objXLAPP = createobject("Excel.Application")
objXLAPP.displayalerts = false
objXLAPP.Workbooks.Open "C:\TestFile.xls"
For intRowCounter = 1 to objXLAPP.Workbooks(1).Worksheets(1).usedrange.rows.count
If (objXLAPP.Workbooks(1).Worksheets(1).Cells(intRowCounter, 4).value = "2") then
objXLAPP.Workbooks(1).Worksheets(1).Cells(intRowCounter, 6).value = ""
End If
Next
objXLAPP.Workbooks(1).save
objXLAPP.Workbooks(1).close
objXLAPP.displayalerts = true
Set objXLAPP = Nothing
Msgbox "Done!"