Hi,

Am Thu, 7 Feb 2013 10:52:36 +0100 schrieb Claus Busch:

For i = 1 To 10
Sheets("Sheet1").Cells(i, 2).Formula = " _
=VLOOKUP(C1,'ILK1'!C2:C54," & i & ",0)"
Next

if you want to suit the references in every new row:
With Sheets("Sheet1")
.Range("B1").Formula = "=VLOOKUP(C1,'ILK1'!C2:C54,ROW(A1),0)"
.Range("B1").AutoFill .Range("B1:B10")
End With


Regards
Claus Busch
--
Win XP PRof SP2 / Vista Ultimate SP2
Office 2003 SP2 /2007 Ultimate SP2