I have changed the code to match your workbook. In the information sheets (Place 1, Place 2 etc) if this how you have the information stored then the code will produce the search results formatted the way you had in your sample. The FindAll function is designed to find EVERY occurrence of the keyword you are searching for and this function will allow you to do this by passing the required parameters and if you want the optional parameters. What it returns is all the ranges that contain the keyword so you just need to iterate through this to find each discrete range and then write the data to the output sheet.
Attached is the revised workbook.
If you have any problems or questions just ask.
PS: If this is the first lot of VBA code you have written you were certainly on the right track and I am impressed for a first go. Well done!![]()
Bookmarks