Configuration: Windows XP Internet Explorer 6.0
|
Hello
sub a () DIM i As Integer Dim s As worksheet set s = Sheets (" template") For i = 1 To InputBox ("Number of copies?", "NEED INPUT!", 5) s.copy after:=sheets (sheets.count) Sheets (Sheets.Count) . Name = "Test " & i Next End Sub |
Résultats pour Macro to populate worksheet tabs
Résultats pour Macro to populate worksheet tabs
Résultats pour Macro to populate worksheet tabs
Résultats pour Macro to populate worksheet tabs
Résultats pour Macro to populate worksheet tabs