O valor em sua planilha PASTA1 coluna "E" (Nome pregão) tem um espaço adicional nos nomes, então vc estão procurando 'WEG ' , porem em sua dados historicos está 'WEG'.
Deve ser compatibilizados os dois campos, experimente utilizar assim:
RazaoSocial = Trim(Workbooks(PlanilhaIndice).Sheets("Principal").Range("B2").Value)
Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel
Postado : 08/02/2013 6:32 am