Error en macro con una función

Poseo una planilla la cual con la función concatenar (Celda A2) logro generar el siguiente texto: =HIPERVINCULO("#'10-375'!b5";"ir a")

Pero solo es texto y no realiza la función de hipervínculo. Para ello debo copiar la celda A2 y hacer pegado especial valores en la Celda A1. Pero para que funciones luego debo entrar a A1 con la tecla F2 y darle Enter para salir. Recién allí, en A1 tengo un hipervínculo que me lleve a la hoja que deseo.

El paso de copiar y hacer el pegado especial deseo hacerlo con la siguiente macro:

Range("a2").Select
Selection.Copy
Range("a1").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
[a1].Select
Range(Selection, Selection.End(xlDown)).NumberFormat = "General"

ActiveCell.Formula = ActiveCell.Value
ActiveCell.Offset(0, 1).Select

EL problema lo tengo en el paso ActiveCell.Formula = ActiveCell.Value donde me pone "Se ha producido el error '1004' en tiempo de ejecución: Error definido por la aplicación o el objeto"

Estimo que debo cambiar algo donde dice ActiveCell.Value pero no sabría que es.