Hi Oercim,

Am Thu, 7 Feb 2013 00:46:43 -0800 (PST) schrieb oercim:

For i = 1 To 10
Sheets("Sheet1").Cells(i,2)) = "=VLOOKUP(C[-2],?LK1!C[-1]:C[54],i,0)"
Next

why not use formula in B1 and fill down to B10?
With Sheets("Sheet1")
.Range("B1").Formula = "=VLOOKUP(A1,'ILK1'!A1:BD1,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