Может кто-нибудь исправить этот Excel 2010 Macro?

Question

Я записал макрос, но он работает неправильно. Это следующим образом:

Sub OpenCase1()
'
' OpenCase1 Macro
'

'
    Range("G5").Select
    ActiveCell.FormulaR1C1 = "=R[-4]C[-3]"
    Range("G5").Select
End Sub

Это простая команда, подумал я, но, очевидно, она не работает. Я хочу, чтобы при нажатии на макрос он менял ячейку G5 на = D1, копируя содержимое ячейки D1. Из предыдущей справки, которую я получил, Select частей в макросе может быть проблемой, однако это может быть не так.

Вся помощь очень ценится, пожалуйста, помогите :)

Answer 1

Упростите код, получив прямой доступ к ячейке без Select

Range("G5").Value = "=D1"

или же

Range("G5").Formula = "=D1"

или если вы хотите использовать свою запись по какой-либо другой причине

Range("G5").FormulaR1C1 = "=R[-4]C[-3]"