Такое действительно бывает что макрос напеисанный на 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

Прикрепила файл в котором все макросы.
Помогите разобраться в чем проблема......
Заранее признательна.

SashaM, как остроумно =)
а за предыдуший ответ спасибо

Shocker.Pro, не ругайтесь...
Сейчас у меня ошибка на Next. Что делать?

Ошибка в макросе Sravnenie: Run-time error '13'