Hvordan skrives en specifik formel til Excel via VBA ?

Når jeg indspiller en makro, får jeg følgende kode :

    Range("B11").Select
    ActiveCell.FormulaR1C1 = "=MIN(R[-1]C:R10C131)"

Den vil jeg gerne lave lidt om i, således at den kan bruges i en FOR-NEXT-løkke. Mit umiddelbare foreslag var :

    FOR I%=1 to 100
      Ark1.cells(1, I%).Select
      ActiveCell.FormulaR1C1 = "=MIN(R[-1]C:R10C" & CStr(I%)
    NEXT I%

Men det virker ikke, hvordan får jeg det til at virke ???