Hi all,

I have the following code:

Sub test2()
Dim j As Integer
Dim varCol3 As Integer, varCol4 As Integer, varCol5 As Integer

varCol3 = 13
varCol4 = 14
varCol5 = 15

For j = 3 To 5
ActiveCell.Offset(0, j).Value = Evaluate("varCol" & Str(j))
Next j
End Sub

Why would evaluate() not evalute what I expect, i.e put th
corresponding values into the cells?

Thanks in advance

--
Message posted from http://www.ExcelForum.com