How to do populate values in Quality Center from values in Excel?

I am trying to populate a field in Quality Center from a field in an Excel spreadsheet based off what is entered in another field in Quality Center. My code doesnt populate anything and doesnt give me any errors. Can someone please help me?

Here is the code.

The code is
Sub Defects_Bug_FieldChange(FieldName)
Dim objExcel
Dim excelPath
Dim cells
Dim row
Dim sheet
Dim word
Dim objWorkbook

excelPath = "C:\Test\Quality Center\QATOwnersTest.xls" objExcel.Workbooks.open excelPath, false, true
Set objExcel = CreateObject("Excel.Application")
Set Sheet = objExcel.ActiveWorkBook.Worksheet(1)

IF (Bug_Fields("BG_USER_06").Value = "ABC" AND Bug_Fields("BG_USER_04").Value = "EFG") Then

For row = 1 To 3
IF Bug_Fields ("BG_USER_11").Value = Sheet.Cells(Row, 1) Then
Bug_Fields ("BG_USER_12").Value = Sheet.Cells(Row, 2)


End IF

Next
End If
objExcel.Quit