search and select range in macro

Hi All, I'm creating a database from scanned copies of addresses. So far I have a LONG list of data that is luckily separated by the company name being in bold. I would like to run a macro that figures out that the record is from bold to bold (offset -1,0), so I can transpose it on a separate sheet in order to have each record on a separate row.

Does anyone have a suggestions on how I can select a range from bold to bold (offset by -1,0)?! Or any other suggestion? Another major list coming my way will be separated by an empty cell.

I would be super grateful if someone can help me out with this!
Thanks,
Liz

hi, tigerlilyliz, can you post sample workbook showing original data and the result you need to obtain?

Dr. Name
Home:
Street
Sao Paulo, 01411-011 Brazil
Name2
address
phone number
Name
Address
phone number
city, state

Originally Posted by tigerlilyliz

I would like to run a macro that figures out that the record is from bold to bold
Liz

Hi Liz,

A quick and dirty function you could use which would return all of the bold characters within a string of text would be:

Function GetBolds(InputText As Range)
    For y = 1 To Len(InputText)
        If InputText.Characters(y, 1).Font.Bold = True Then GetBolds = GetBolds & Mid(InputText, y, 1)
    Next y
End Function

Paste this to a new module, then in your spreadsheet, use the formula:
=GetBolds(A1)
...where A1 contains a line of text you want to get the bold characters out of.

Copy this function down for each of the addresses in your list to extract the bold characters.

Thanks, Tarquinious. I'll give it a whirl.