Macro to search cell data and copy data to another workbook

Hi,

I am looking for a macro to search all cells and find product?categoryID= and after the = sign to copy the 15 numbers and paste those numbers to another workbook called categorycopy on column a. Then the row underneath it will have target="_self">Card Reader</a></li> I need the data in between _self"> and </a></li> then copy it to workbook category to column b

I have attached an example spreadsheet on the data that needs to be searched & copied over.

thanks for your help

testcategories.xlsx

Sorry i didn't get back to you until now because i have been away. Works exactly as intended thank you!, However i noticed that it only grabbed the main category headings and not the sub category headings. If you look at the new attached spreadsheet on line 617 this is where it starts. This was my mistake because i thought the sub category headings were included.

The only way that i can see to search would be <a href="/product?categoryid="and after the 15 numbers ">value example</a>
FYI - the old one didn't have <a href=" and its all on the same row.

This is an example of a main & sub category heading below and on the sheet.
New


<h1><a href="/product?categoryId=200000000000000">Component</a></h1>
<h4><a href="/product?categoryId=222000000000000">Cable</a></h4>
<h5><a href="/product?categoryId=222010000000000">Cable Sleeving Kit</a><h5>
<h5><a href="/product?categoryId=222020000000000">Cat5 Cable</a><h5>

Old
href="/product?categoryId=316000000000000"
target="_self">Webcam</a></li>

href="/product?categoryId=315000000000000"
target="_self">Televison</a></li>
categoriesfull.xlsx

Wow your good, its exactly what i need. thanks for your help and marked excellent for your help.