Alguém pode corrigir essa macro do Excel 2010?

Question

Bem, eu gravei uma macro, mas ela não está funcionando corretamente. É como segue:

Sub OpenCase1()
'
' OpenCase1 Macro
'

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

É um comando simples, pensei, mas obviamente não está funcionando. O que eu quero é que, ao clicar na macro, ela mude a célula G5 para = D1, copiando o conteúdo da célula D1. De ajuda anterior, as Select partes na macro podem ser um problema, no entanto, pode não ser o caso disso.

Toda ajuda é muito apreciada, por favor ajude:)

    

Answer 1

Simplifique o código acessando a célula diretamente sem Select

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

ou

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

ou se você quiser usar sua notação por algum outro motivo

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