Problema com VBA excel ?

[Pablo Abreu Diniz]

Boa tarde senhoras e senhores, então... Eu estou utilizando um código para Abrir uma planilha do excel, salvar foto de um determinado intervalo de células, (o nome da imagem salva tem que ser o mesmo nome do que está escrito na célula B10) e fechar o excel (Bom, não sei se é porque até agora não rodou 100%, mas até então não está fechando o excel, mas deve ser culpa de um outro erro), Mas o meu problema atual é que não está funcionando a parte de pegar o conteúdo da célula B10 aí então fica toda hora travando... Alguem poderia me ajudar ?

 

Sub Abrir_Copiar_Colar()

Dim FSO As Object
Dim Pasta As String
Dim Planilha As Object
Dim OpenBook As String

Set FSO = CreateObject("Scripting.FileSystemObject")
Pasta = "C:\Users\pablo.diniz\Desktop\Projetos Terminados\357\OAE\EXCE OAE" 'Pasta com as planilhas que serão abertas e copiadas

Application.Calculation = xlCalculationManual
Application.ScreenUpdating = False

For Each Planilha In FSO.GetFolder(Pasta).Files

If InStr(1, Planilha, ".xls") = 0 Then GoTo PRÓXIMO

Workbooks.Open (Planilha)
OpenBook = ActiveWorkbook.Name

 Dim Nome As String
 Nome = Worksheets(1).Range("B10")

    Range("B116:AL210").Select
    Selection.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
        "C:\Users\pablo.diniz\Desktop\teste2\" & Nome & ".pdf", Quality:=xlQualityStandard, _
        IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
        True


PRÓXIMO:
Next

Application.ScreenUpdating = True

MsgBox "Dados Copiados com Sucesso!", vbInformation, "Aviso"

Application.Calculation = xlCalculationAutomatic

End Sub

Grato.