For Each Loop slow for adding data to Listbox in Excel

Question

I use the following loops to add data to a Listbox, if the value in a certain range includes "(FS)".

The search range is defined as AllAreas(12)