Werkbladen meerdere malen kopieren en andere naam geven

[camper2500]

Beste,

Wie kan me helpen, ik wil graag automatisch 2 samenhorende werkbladen meerdere malen kopieren en een ander naam geven. De naam moet bestaan uit een letter en een oplopend nummer.
Dus:
werkbladen 1I 1R
worden: 1I 1R; 2I 2R; 3I 3R; 4I 4R;...

Ik heb al volgende code bijeen gekregen, maar iets klopt er nog niet.

Sub werkbladen()
'
' werkbladen Macro
Dim Nummer As Integer

For Nummer = 2 To 30

    Sheets(Array("1I", "1R")).Select
    Sheets(Array("1I", "1R")).Copy After:=Sheets(ActiveWorkbook.Sheets.Count)
    Sheets("1I(2)").Name = Nummer & ("I")
    Sheets("1R(2)").Name = Nummer & ("R")
    
Next Nummer
End Sub

Alvast bedankt voor Uw hulp

Groeten

 

[wampier]

Als dit de standaard config is, waarom hernummer je ze niet gewoon als je klaar bent?

of gebruik je de laatste 2:

Sub werkbladen()
'
' werkbladen Macro
Dim Nummer As Integer

For Nummer = 2 To 3
    Sheets(Array("1I", "1R")).Copy After:=Sheets(ActiveWorkbook.Sheets.Count)
    Sheets(Sheets.Count - 1).Name = Nummer & ("I")
    Sheets(Sheets.Count).Name = Nummer & ("R")
Next Nummer

End Sub

 

[camper2500]

beste Wampier,

Wreed bedankt, nu werkt het wel. Ik was blijkbaar niet zo heel ver meer van kant maar heel hard bedankt voor de finishing touch!!


Dankjewel,

Groeten,