Macro que tome contenido de celda
Tengo una macro que me permite copiar las cotizaciones mensuales del dolar de otro libro. Me es muy útil. Cuando guardo el libro con otro nombre, necesito cambiarle la sentencia Windows("BALANCE MAESTRO.xlsm").Activate para que funcione. ¿Cómo puedo hacer para que la sentencia , tome nombre del contenido de una celda para facilitar la utilización en nuevos libros excel?
Agradezco la ayuda de algún experto que me pueda asistir.
Esta es la macro.
Sub CopiaTC()
'
' CopiaTC Macro
' Copia Tipo de Cambio
'
' Acceso directo: CTRL+k
'
Windows("Cotizaciones U$ -Importable a ctabilidad.xlsm").Activate
ActiveCell.Offset(2, 0).Range("A1:B31").Select
Selection.Copy
Windows("BALANCE MAESTRO.xlsm").Activate
ActiveCell.Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Windows("Cotizaciones U$ -Importable a ctabilidad.xlsm").Activate
ActiveCell.Offset(-2, 0).Range("A1").Select
Application.CutCopyMode = False
Windows("BALANCE MAESTRO.xlsm").Activate
End Sub