Um tanto quanto lacônica sua demanda.
Tentando adivinhar,
Pretende incluir uma formula na celula C2 da plan2? -->Então é melhor se referir à Formula e não valor -->Troque .Value por .Formula ou .FormulaLocal.
a diferenca e que a primeira as funções devem ser escritas com sua nomenclatura em ingles; e a segunda na linguagem do sistema em uso (meu caso portugues)
Se os valores de B2 e/ou C1 referem-se a Plan2 tudo bem, caso contrario deve referenciar a planilha de origem "Plan1"...

O código e ON e OFF está na plan1, por isso quero inserir na plan2 Worksheets("Plan2")
Se coloco ON na plan1, na celula C2 na plan2 vai ser =RTD("empresa.rtd";;B2;$C$1), se for OFF vai ser vazio, onde que posso depois digitar manualmente

Coloquei, mas essa linha está em vermelho
Worksheets("Plan2").Range("C2").FormulaLocal = "=RTD("empresa.rtd";;B2;$C$1)"

Private Sub Worksheet_Change(ByVal Target As Range)

Application.EnableEvents = False
Application.ScreenUpdating = False

If Range("C1").Value = "ON" Then
    Worksheets("Plan2").Range("C2").FormulaLocal = "=RTD("empresa.rtd";;B2;$C$1)"
End If

If Range("C1").Value = "OFF" Then
    Worksheets("Plan2").Range("C2").Value = ""
End If

Application.ScreenUpdating = True
Application.EnableEvents = True
End Sub

"=RTD(""empresa.rtd"";;B2;$C$1)"

Não apareceu na celula na C2

Não apareceu na celula na C2

O problema é aí com você.

Aqui testei no arquivo que você postou com a alteração que eu sugeri e voilá...

Estou com 2007, será por isso ?
anexa o seu aqui !

Depois que fechei e abri o excel novamente deu certo

Acrescentei o SE, pois deu linha amarela, pode ser as aspas ou ponto e virgula o erro ?

"=SE(B2=0;"";RTD(""empresa.rtd"";;B2;$C$1))"

"=SE(B2=0;"""";RTD(""empresa.rtd"";;B2;$C$1))"

abaixo uma versão simplificada do seu código

Private Sub Worksheet_Change(ByVal Target As Range)
 If Target.Address <> "$C$1" Then Exit Sub
  If Target.Value = "ON" Then
   Sheets("Plan2").Range("C2").FormulaLocal = "=SE(B2=0;"""";RTD(""empresa.rtd"";;B2;$C$1))"
  ElseIf Target.Value = "OFF" Then
    Sheets("Plan2").Range("C2").Value = ""
  End If
End Sub

Pq quando troco o nome na plan2 na celula A2 não funciona ? Sempre chama o formulaLocal da Empresa B

Obrigado desde já !

Poderia usar Chr(34) p/ aspas.

Pq quando troco o nome na plan2 na celula A2 não funciona ? Sempre chama o formulaLocal da Empresa B

Isso ocorre porque as fórmulas que você elaborou não consideram o conteúdo de 'A2' da 'Plan2'. As suas fórmulas chamam a Empresa A ou a Empresa B em função do conteúdo de 'C1' da 'Plan1' (ON/OFF), lembra disso?

Sugestão - inclua a condição ON/OFF na sua fórmula para chamar a Empresa A ou a B, assim você terá somente uma fórmula e não precisará de macro para inseri-la

Então Osvaldo, o macro tenho que ter, se não eu não consigo inserir manualmente quando coloco em OFF

Entendeu ?

Se ON, entra a Formula e se OFF deixa vazio para eu digitar manualmente