ошыбка 13 vba

[Shota_xuc]

Добрые люди у меня такая проблема: есть такой макрос:

Sub open_file()

Application.ScreenUpdating = False

Dim tarigi As String
Dim tve As String
Dim filename As String
Dim names As String

If Application.UserName = "Khutsishvili, Shota" Then
names = "O"

ElseIf Application.UserName = "Fröström, Millie" Then
names = "L"

Else
names = "Z"


End If



tarigi = Range("a1").Value
tve = Range("a2").Value

Workbooks.Open filename:= _
names & ":\Externa Fonder\ORDRAR EXTERNA FONDER\Rapport Daglig Order Summering\2015\" & tve & "\ReportOrderSummering_" & tarigi & ".xls"

Sheets("ReportOrderSumUp_6_1").Copy After:=Workbooks("avisering stor order.xlsm"). _
Sheets(1)

Windows("ReportOrderSummering_" & tarigi & ".xls").Close

' rename sheet

Sheets("ReportOrderSumUp_6_1").Name = "temp"

Columns("B:F").Select

Selection.UnMerge

Columns("C:F").Select
Selection.Delete Shift:=xlToLeft

'first woord copy and corresponding large amount copy

Dim cells As Range
Range("f11:f400").Select
For Each Cell In Selection

Cell.Select
ActiveCell.Formula = "=NOMIDDLE(RC[-4])"
ActiveCell.Offset(0, 1).Formula = "=VLOOKUP(RC[-1],data!R1C1:R300C2,2)"


Next Cell

' formula ---> text

Range("f11:g400").Select
Selection.Value = Selection.Value

' delete errors

Range("f11:g400").Select
For Each Cell In Selection
If Cell.Text = "#N/A" Then
Cell.ClearContents
End If

Next Cell

' check large amounts


For Each Cell In Range("G11:G400")
If Cell.Value < Abs(Cell.Offset(0, -4).Value) Or Cell.Value < Abs(Cell.Offset(0, -3).Value) Then

Cell.Offset(0, 1).Value = Cell.Offset(0, -1).Value
Cell.Offset(0, 2).Value = 1

Else: ActiveCell.Offset(0, 1).Value = 0

End If


Next Cell

' msg box

Sheets("temp").Select
Range("h11:h400").Select
For Each Cell In Selection
If Cell.Value <> O Then
Cell.Select

MsgBox "Vi har stor order i " & Cell.Value


End If


Next Cell


If Application.Sum(Range("i11:i400")) = 0 Then

MsgBox "Vi har inga stora ordrar idag"


End If

Sheets("avisering stora ordrar").Select
Range("a2").Select


Application.ScreenUpdating = True


End Sub

каторый работает на моем компе, но выдает ошыбку 13 на компе коллеги.
компу коллеги не нравится ета строка:
If Cell.Value < Abs(Cell.Offset(0, -4).Value) Or Cell.Value < Abs(Cell.Offset(0, -3).Value) Then

почему?

[Hugo121]

1. Dim cells As Range - cells не трогайтё!
Как кстати и filename и names.

For Each Cell In Selection - эта переменная не объявлена!

Используйте option explicit!

2. Если у коллеги ошибка ещё не пропала - посмотрите нет ли missing в подключенных библиотеках.

[Shota_xuc]

Спасибо Hugo121