Maybe somebody can pipe up on why this calculates just fine in the cell:
[vba]Sub test()
With Range("I1537:I1541")
.value = "=VLOOKUP(" & .Offset(0, -7).Address & ",'[wkbk1]Sheet1'!$" _
& ColumnLetter(3) & ":$" & ColumnLetter(10) & ",8,FALSE)"
End With
End Sub
Function ColumnLetter(Col)
'-----------------------------------------------------------------
Dim sColumn As String
On Error Resume Next
sColumn = Split(Columns(Col).Address(, False), ":")(1)
On Error GoTo 0
ColumnLetter = sColumn
End Function[/vba]
But when I try to use Evaluate it puts the first cell's value into the whole column
[vba]With Range("I1537:I1541")
.value = Evaluate("=VLOOKUP(" & .Offset(0, -7).Address & ",'[wkbk1]Sheet1'!$" _
& ColumnLetter(3) & ":$" & ColumnLetter(10) & ",8,FALSE)")
End With[/vba]
WHYYYYYYYEEEEEEEEEEE?!?!
Thx,
n8