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