Como passar uma variavel como parametro do Workbook

Question

Pessoal estou fazendo uma macro que vai basicamente copiar dados fixos de uma planilha e colar nesta onde estará a macro, porém este processo sera efetuado diversas vezes , fazendo essa copia de varias planilhas diferentes , então o nome das planilhas de que vou copiar os dados não são estáticos , oque eu tenho um esboço de código é algo do genero 

Workbooks.Open Filename:="C:\Users\vinicius.Vinicius\Desktop\excelteste\teste1.xlsx"

Workbooks("teste1.xlsx").Worksheets("Plan1").Range("A1:F3").Copy Destination:=Workbooks("1.xlsm").Worksheets("Planilha1").Range("a1")

Workbooks("teste1.xlsx").Close

porém todas as vezes que aparece o nome "teste1 " no caso eu queria que fosse o valor de uma célula dessa planilha , tipo Workbooks(range("A8").value).worksheet.... pois ai a pessoa que for utilizar a macro so precisara colocar o nome do workbook e pronto. 

Alguem ai consegue me dar uma luz ? 

Answer 1

Sub teste()

'na célula A1 deve estar escrito C:\teste1.xlsx

    Dim wbk As Workbook

    Set wbk = Workbooks.Open(CStr(Sheets("Planilha1").Range("A1")))
    wbk.Worksheets("Planilha1").Range("A1:F3").Copy
End Sub

---

Anderson Diniz