Utilizei o comando getopenfilename para importar dados do Arquivo1 para o Arquivo2. Como insiro um comando para fechar o Arquivo1 automaticamente?
Dim nomearq As String
nomearq = Application.GetOpenFilename
Workbooks.Open Filename:=nomearq
Sheets(1).Select
Range("A2").Select
Range(ActiveCell, ActiveCell.End(xlDown).End(xlToRight)).Copy
Workbooks("importacao.xlsm").Activate
Range("A1").Select
Selection.End(xlDown).Select
If ActiveCell.Offset(1, 0) = ("") Then
ActiveCell.Select
Else
Selection.End(xlDown).Select
End If
ActiveCell.Offset(1, 0).PasteSpecial xlValues
Selection.PasteSpecial Paste:=xlPasteFormats
