´Dúvida em macro

Question

Pessoal, eu quero fazer a atividade em negrito, porém dá erro.Alguém saberia me dizer pq?

Sub Macro1()
Dim Cell As Range
Windows("certo.xlsx").Activate

Range("C3").Select

For i = 1 To 16
    ActiveCell.Offset(, i).Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.Copy
    Windows("Planilha2.xlsx").Activate
    Sheets(" & ActiveCell.Offset(1, i).Value & ").Select
    Range("C2").Select
    ActiveSheet.Paste
   
   
 Next
End Sub

Answer 1

Não entendi o que você quer fazer. Onde você obtém erro?

---

Felipe Costa Gualberto - http://www.ambienteoffice.com.br