Formule doorvoeren via VBA

[tilpi]

Hallo helpmij-ers

Ik weet het even niet.
Ik heb een bestand waar automatisch via VBA werkbladen aan toegevoegd
kunnen worden.
Het eerste blad heet 1-07, het tweede 2-07, etc.
Nu moet vanaf blad 2-07 een formule doorgevoerd worden, die een
verwijzing bevat naar het vorige blad, du 1-07.
Dat dacht ik te doen met de volgende code:

Sub Formule_Doorvoeren() 
Dim n As Integer 
Dim x As Integer 
n = Worksheets.Count 
    Sheets(n).Select 
    ActiveSheet.Unprotect 
        Range("F5").Select 
            For x = 5 To 62 
            ActiveCell.FormulaR1C1 = "=IF('1-07'!RC[14]="""","""",""N"")" 
        Range("F" & x).Select 
    Next 
ActiveSheet.Protect 
End Sub

Mijn vraag is dus: Hoe kan ik de formule laten verwijzen naar het
vorige blad zoals hij nu ook doet maar dan ook als er meerdere bladen
toegevoegd zijn.
dus: Hoe wordt "=IF('1-07'! automatisch "=IF('2-07'! en "=IF('3-07'!
etc.
Die "n" zou toch gebruikt moeten kunnen worden?


Alvast bedankt voor de moeite.


Mvg


Piet

 

[tilpi]

Ik heb inmiddels de oplossing aangereikt gekregen.
Voor belangstellenden hieronder het resultaat
Deze code doet precies wat ik wil

Sub Formule_Doorvoeren() 
Dim n As Integer 
Dim x As Integer 
n = Worksheets.Count 
    For i = 1 To n - 1 
        Sheets(i + 1).Unprotect 
        Set wb_1_terug = Sheets(i) 
        Set wb_huidig = Sheets(i + 1) 
            For y = 5 To 62 
                wb_huidig.Cells(y, 6).FormulaR1C1 = "=IF('" & 
wb_1_terug.Name & "'! RC[14]="""","""",""N"")" 
            Next y 
        Sheets(i + 1).Protect 
    Next i 
Set wb_huidig = Nothing 
Set wb_1_terug = Nothing 
End Sub

Mvg

Piet