End Sub. Если вы запустите эту программу в той же рабочей книге, что и ЦелаяПеременная, значение Num1 будет равно 5

Если вы запустите эту программу в той же рабочей книге, что и ЦелаяПеременная, значение Num1 будет равно 5. В четвертой строке программы переменная использована для вывода значения в информационном окне

Таким образом, программа ПрисвоитьЗначение отображает в окне значение свойства Value диапазона A1. Этого же результата можно добиться и не используя переменную, как продемонстрировано в следующем примере:

Sub БезПеременной()

MsgBox Worksheets(1).Range("А1").Value

End Sub