Rename sheets based on a piece of data on each field.

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:

Sub Worksheet_Change()
On Error GoTo enditall
ActiveSheet.Name = Range("B3").Value
enditall:
End Sub

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