Сохранение объекта Range в Variant

Question

Sub test() 
    Dim rng As Range 
    Dim not_rng As Variant 
    Set rng = Sheets("Test").Range("A1:B2") 
    Debug.Print TypeName(rng) 
    not_rng = rng 
    Debug.Print TypeName(not_rng) 
End Sub 

код, приведенный выше принтами

Range 
Variant() 

Я хотел бы, чтобы напечатать Range, Variant.

Answer 1

Ах, я пропускал Set ключевое слово:

Sub test() 
    Dim rng As Range 
    Dim not_rng As Variant 
    Set rng = Sheets("Test").Range("A1:B2") 
    Debug.Print TypeName(rng) 
    Set not_rng = rng 
    Debug.Print TypeName(not_rng) 
End Sub 

Теперь она печатает

Range 
Range 

, что делает больше смысла.