Спасибо за советы. (код в теме дан для примера)  
 
P.S.   " - тема важная и ждет решения;"  
В понедельник сдаваться начальству.  
Сейчас сижу "прикручиваю" к общему коду блоки которые убирают символы те что в скобках ( - фамилии до замужества; не сравниваются в массивах)

Да я хотел чтобы пока грузиться макрос вышло окошко с сообщением и стояло пока не закончиться.  
Ну например можно чтобы оно сообщало что делается/или просто висело "подождите несколько минут"  
 
Sub Msg()  
Dim text as string  
text = "начало"  
Msg text  
text = "загрузка баз"  
Wb.Open  
'и т.д.  
end sub