Excel VBA Looping

[rizabdullah]

Morning Guys

I have an excel worksheet with around 200 sheets. One of the sheet (NAMES) has names and their email address. What I am looking to do is write a VBA to, for example, look for a name on sheet1 A:1 Vlookup for that name in NAME sheet and bring back email address on each worksheet in cell XFD:1.

The code I am trying is:

For Each ws In ActiveWorkbook.Worksheets
******* If ws.Name <> "NAMES" Then
*********** Range("XFD1").Select
*********** ActiveCell.Formula = "=VLOOKUP(R[2]C[-16383],NAMES!C[-16383]:C[-16380],4,FALSE)"
*********** Next ws


It works on one sheet only, not looping. What am I doing wrong. Please advise.

Many thanks in advance.

[TMS]

Please use Code Tags in your code excerpts. Try:

Please Login or Register  to view this content.

Regards, TMS



Your post does not comply with Rule 3 of our Forum RULES. Use code tags around code.

Posting code between [CODE]Please [url=https://www.excelforum.com/login.php]Login or Register [/url] to view this content.[/CODE] tags makes your code much easier to read and copy for testing, it also maintains VBA formatting.

Highlight your code and click the # icon at the top of your post window. More information about these and other tags can be found here

[rizabdullah]

Many thanks TMS, it works like a magic

[TMS]

You're welcome. Thanks for the rep.

Don't forget the Code Tags




If you are satisfied with the solution(s) provided, please mark your thread as Solved.


New quick method:
Select Thread Tools-> Mark thread as Solved. To undo, select Thread Tools-> Mark thread as Unsolved.

Or you can use this way:

How to mark a thread Solved
Go to the first post
Click edit
Click Go Advanced
Just below the word Title you will see a dropdown with the word No prefix.
Change to Solved
Click Save


You may also want to consider thanking those people who helped you by clicking on the little star at the bottom left of their reply to your question.