Макрос не работает в excel 2007 - VB

Формулировка задачи:

Такое действительно бывает что макрос напеисанный на excel 2003 не работает на 2007?
Причем три макроса работают а четвертый не хочет=(
Вот тот самый макрос:
Sub Sravnenie()
Dim object, times, i
Dim plan As Object, gos As Object, result As Object, x As Range
Dim FirstAddress$, blank_cell As Range
Dim discipl As Range
Worksheets("Ëèñò3").Cells.ClearContents
Set plan = Sheets(2)
Set gos = Sheets(1)
Set result = Sheets(3)
For i = 1 To plan.UsedRange.Rows.Count
object = Cells(i, 2)
times = plan.Cells(i, 8).Value
If object <> "" Then
If object Like "ÄÑ*" Or object Like "ÔÒÄ*" Then
Set DS_FTD = plan.Cells(i, 3)
Set x = gos.Columns(2).Find(DS_FTD, LookIn:=xlValues, lookat:=xlPart, MatchCase:=True)
Set object = plan.Columns(2).Find("Âñåãî ïî ÄÑ*")
i = object.Rows
Else
Set x = gos.Columns(2).Find(object, LookIn:=xlValues, lookat:=xlPart, MatchCase:=True)
If Not x Is Nothing Then
FirstAddress = x.Address
Do
Set x = gos.Columns(2).FindNext(x)
If gos.Cells(x.Row, 3).Value <> times Then
Set blank_cell = result.Cells(result.Range("a" & Rows.Count).End(xlUp).Row + 1, 1)
plan.Cells(, 2).Copy blank_cell
End If
Loop While Not x Is Nothing And x.Address <> FirstAddress
Else
Set blank_cell = result.Cells(result.Range("a" & Rows.Count).End(xlUp).Row + 1, 1)
plan.Cells(i, 2).Copy blank_cell
'blank_cell.Offset(0, 2).Value = "Not Exist In Sheets1 Column2!"
End If
End If
End If
Next
ActiveSheet.Columns.AutoFit
ActiveSheet.Rows.AutoFit
End Sub
Прикрепила файл в котором все макросы.
Помогите разобраться в чем проблема......
Заранее признательна.

Решение задачи: «Макрос не работает в excel 2007»

textual
                            Листинг программы 
                        

                            <font color="blue">Dim</font> DS_FTD <font color="blue">As</font> ...
DS_FTD = plan.Cells(i, <font color="darkblue"><b>3</b></font>)
<font color="blue">Set</font> x = gos.Columns(<font color="darkblue"><b>2</b></font>).Find(DS_FTD, LookIn:=xlValues, lookat:=xlPart, MatchCase:=True)
                        