Vlookup with for each

[olli.excel]

Hello! I have a code where I need to use Vlookup. In Workbook nr. A I have one row with names, then one row next to it with numbers. In workbook nr. B I have named each sheet with the names from workbook A. I would like to loop through all sheets in workbook nr. B and use vlookup/match and set the matched number in column B(next to the names). Code:
Names is in column A, workbook nr. A, numbers in column B.

Sub nwid()
Dim ws As Worksheet

For Each ws In Workbooks("Handel lister.xlsx").Worksheets
Range("B1").FormulaR1C1 = _
"=VLOOKUP(RC[-1],[Aksjer.xlsm]Nummerering!C1:C2,2,TRUE)"
Next ws

End Sub

Really hope someone is able to help.

[TMS]

Sub nwid()
Dim ws As Worksheet

For Each ws In Workbooks("Handel lister.xlsx").Worksheets
    ws.Range("B1").FormulaR1C1 = _
         "=VLOOKUP(RC[-1],[Aksjer.xlsm]Nummerering!C1:C2,2,TRUE)"
Next ws

End Sub

But that isn't going to work because the lookup range is only two cells, both in column C, hence you can't return data from the second column.

[olli.excel]

Thank you for the reply! The Vlookup works properly, but it does not work as a loop or for each.