Set не присаивает объект переменной

[rdva]

Set Key = Workbooks("price_16.08.07.xls").Worksheets("цены").Cells(1, 1)
VarType(Key) выдает 8 (String)

Почему так? Разве не должен Key стать объектом типа Range?

[Димитрий]

Dim Key As Range
Set Key = Workbooks(1).Worksheets(1).Cells(1, 1)
MsgBox TypeName(Key)
Key.Value = 1

[rdva]

Однако!
VarType криво работает? Пробовал с Dim Key As Range - все равно 8 выдает.

[GSerg]

Потому что сообщает тебе о Key.Value.