<code>
Sheets(studentBlad).Select
ActiveSheet.Cells(3, kolom).Select
ActiveCell.FormulaR1C1 = "='" + naamSp + "'!RC[1]"
ActiveSheet.Cells(3, kolom).Select
Range(Cells(3, kolom), Cells(10, kolom)).FillDown
</code>
The above does what it's supposed to do when I use this in a...