My code is like this
Sub find()
Dim i as long
varr = Evaluate("Vlookup(A18, A344:AR558, {7,10,13,16,19}, False")
If IsArray(varr) then
For i = Lbound(varr) to Ubound(Varr)
Range("C18:G18").Value = Varr(i)
Next
End if
End Sub

Error which I get is you can't changea part of array.

I want the values found from array to be put in cells C18, D18, E18, F18, G18

Any help is highly appreciated

Thanks a lot in advance
--
Kittie