Сравнение столбцов в разных книгах

[evdss]

помогите пожалуйста сделать сравнение по двум столбцам. Сейчас я имею 2 книги 2011.xls и 2010.xls. Мне необходимо сравнить все листы в одной книге со второй книгой по одноименным листам. Есть вариант сравнения по одному столбцу
Sub Main()

Dim i As Long, x As Range, Fst As String
Application.ScreenUpdating = False
Workbooks("2011.xls").Sheets(1).Act ivate
With Workbooks("2010.xls").Sheets(1)
Columns("A").Interior.ColorIndex = xlNone
.Columns("A").Interior.ColorIndex = xlNone
For i = 1 To Cells(Rows.Count, "A").End(xlUp).Row
Set x = .Columns("A").Find(what:=Cells(i, "A"), LookAt:=xlWhole)
If Not x Is Nothing Then
Cells(i, "A").Interior.ColorIndex = 6
Fst = x.Address
Do
.Cells(x.Row, "A").Interior.ColorIndex = 6
Set x = .Columns("A").FindNext(x)
Loop While Fst <> x.Address
End If
Next
End With

End Sub
Как бы добавить еще дополнительно чтобы в книге 2011.xls сравнивалось с книгой 2010.xls не только по столбцу A, а еще плюс G , а в книге 2010.xls A и F. т.е. если по строке значения по этим двум столбцам равны, то тогда закрашивать.