Rename each sheet based on a piece of data on that sheet

Hi I am trying to write a macro which will find the term "Asset ID" in column A on each sheet and rename that sheet to whatever the corresponding data is in column B.
I have attached an example of the type of workbook I am working on, the "Asset ID" cell can appear anywhere on the sheet so a simple 'rename sheet based on value in cell X' is not applicable. I have this code which names the sheet based on whatever is on cell B3, is there a way to alter this to suit my purpose, I imagine it would involve a vlookup or something along these lines:

Please Login or Register  to view this content.

Also this code only apples to the current sheet, can I alter this to work on every sheet in the workbook without having to go into each sheet seperately and running the macro?

Thanks very much in advance,
Michael

Try this code

Please Login or Register  to view this content.

Copy the Excel VBA code
Select the workbook in which you want to store the Excel VBA code
Hold the Alt key, and press the F11 key, to open the Visual Basic Editor
Choose Insert | Module
Where the cursor is flashing, choose Edit | Paste

To run the Excel VBA code:
Choose View | Macros
Select a macro in the list, and click the Run button

Based on your last post in this thread, its apparent that you are satisfied with the solution(s) you've received and have solved your question, but you haven't marked your thread as "SOLVED". I will do it for you this time.

In future, to mark your thread as Solved, you can do the following -
Select Thread Tools-> Mark thread as Solved.

Incase your issue is not solved, you can undo it as follows -
Select Thread Tools-> Mark thread as Unsolved.

Also, since you are relatively new to the forum, i would like to inform you that you can thank those who have helped you by clicking the small star icon located in the lower left corner of the post which helped you. This adds to the reputation of the person who has taken the time to help you.