Excel VBA - Выполнение функции для каждой ячейки в диапазоне

Допустим, у меня есть диапазон rng1

Set rng1 = Worksheets("Sheet1").Range("A1","A5")

Есть ли быстрый и простой способ выполнить математическую функцию, скажем, разделить все значения ячеек на 2 для всех ячеек в rng1?

Любая помощь приветствуется!