Co ti na tom nefunguje?
Sub Copier1()
'Replace "Sheet1" with the name of the sheet to be copied.
ActiveWorkbook.Sheets("Sheet1").Copy _
after:=ActiveWorkbook.Sheets("Sheet1")
End Sub
Máš správně pojmenované názvy listů?
Co ti na tom nefunguje?
Sub Copier1()
'Replace "Sheet1" with the name of the sheet to be copied.
ActiveWorkbook.Sheets("Sheet1").Copy _
after:=ActiveWorkbook.Sheets("Sheet1")
End Sub