где может быть ошибка?

[maksim_serg]

есть код:

...
Form.Mat.Show
...
For lif = 0 To ListBox1.ListCount - 1
If ListBox1.Selected(lif) = True Then
i = ListBox1.Column(0, lif)
...
Set x= ThisWorkbook.Seets(1)
For n = 0 To x.Range("AI" & i).Value
If x.Cells(i, 37 + n * 6).Value Like "*акл*" Then
...
Workbooks.Open ThisWorkbook.Path & "\сводная.xls"
FormVM.Show
FormVM.Label1.Caption = "Выберите столбец, который содержит материал:" & Chr(10) & Chr(10) & x.Cells(i, 37 + n * 6).Value & Chr(10) & x.Cells(i, 36 + n * 6).Value
...
End If
Next n
End If
Next lif

Вся программа работает, но почему то значения x.Cells(i, 37 + n * 6).Value и x.Cells(i, 36 + n * 6).Value получаются нипонятно какие, как пальцем в небо. Где может ошибка?

[Dophin]

Set x= ThisWorkbook.Seets(1)

- это что?

[maksim_serg]

Сообщение от Dophin

Set x= ThisWorkbook.Seets(1)

- это что?

Поскольку я из одной книги работаю и с word'ом и создаю и работаю с другими книгами excel, так я указал к чему именно принадлежат ячейки. Без этого у меня ни чего не работало.
А ошибку нашел:

FormVM.Show
FormVM.Label1.Caption = "......"

поменял их местами и все стало так как я и задумывал.