“Erro de tempo de execução 1004 Microsoft opentext de pastas de trabalho de objetos com falha”

Question

Estou executando um código Macro do Excel que estava funcionando há muito tempo no sistema windows 7 e Excel 2013. Atualizei meu sistema para o Windows 10 e Excel 2013.

Estou recebendo agora o erro "Erro de tempo de execução 1004 Microsoft opentext de pastas de trabalho do objeto com falha" durante a execução do código.

Dim strDestination As String
Dim strSource As String

strDestination = ActiveWorkbook.Name

fileToOpen = Application _
    .GetOpenFilename("Text Files (*.txt), *.txt")

Workbooks.OpenText Filename:= _
    fileToOpen _
    , Origin:=1251, StartRow:=1, DataType:=xlDelimited, TextQualifier:= _
    xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, Semicolon:=False,         _
    Comma:=False, Space:=False, Other:=False, FieldInfo:=Array(1, 1), _
    TrailingMinusNumbers:=True

strSource = ActiveWorkbook.Name

Qualquer ajuda será apreciada.