Visual Basic para Aplicaciones - Reemplazo de Nombre Archivo por una Variable en función SUM

Tengo una variable: miArchivo en la cual he guardado lo siguiente:

miArchivo = Application.GetOpenFilename("Todos los archivos, *.*")

Y lo que necesito es pasarle a la función SUM el nombre guardado en miArchivo.

Mi problema está en la siguiente instrucción:

ActiveCell.FormulaR1C1 = "=SUM([110100A01.xlsm])A01!R31C20:R33C20)"

Es decir, buscar la forma de reemplazar : [110100A01.xlsm] por el contenido de miArchivo

Agradeceré toda la ayuda que les sea posible.
GRACIAS

Prueba esto:


De todas formas tu formula esta mal, sobre un paréntesis:



Saludos.
\\//_

Gracias Antoni. Haré los cambios y te te comento a la brevedad.
Gracias por contestar