Run Time Error 1004

[rabso]

Good morning I am trying to run this code, and it errors with the message
Run Time Error 1004. Can somebody please help me identify why?

Thank you Richard Baker

Sub Lookup()
Sheets("Summary").Select
Dim CurRow As Integer
CurRow = 1
For Each Y In Range("A" & CurRow, Range("A" & CurRow).End(xlDown))
If Y = "" Then Exit For
Y.Offset(0, 1).Formula = "=VLOOKUP(A " & CurRow & ", Data!$A:$H , 2, FALSE)"
CurRow = CurRow + 1
Next
'Reset Header
Range("B1").Value = "FIN WOID"
End Sub

 

[wigi]

I don't really understand what you are trying to do with your Y and CurRow, but I think you meant this:

Sub Lookup()

    Sheets("Summary").Range("B2:B" & Sheets("Summary").Range("A2").End(xlDown).Row).Formula = "=VLOOKUP(RC[-1],Data!C[-1]:C[6],2,FALSE)"
    
End Sub

If not, please explain what Y and CurRow are about and at least on what line you get the error. Also, a space after the A in VLOOKUP(A does not seem an appropriate action.

Wigi

 

[rabso]

Hi Wigi

Thats worked great thank you.