Pesquisar na Comunidade

Boa tarde colegas, tenho essa macro que acessa uma determinada transação do SAP e deveria abrir o numero do documento automático para mostrar a imagem da nota fiscal, porém a macro só roda até o número do documento. Segue abaixo o código e anexo as telas. A macro pára a partir do 'Acessando a DP em destaque vermelho. ElseIf Len(DOC) = 8 Then 'Acessando DP session.findById("wnd[0]").maximize session.findById("wnd[0]/tbar[0]/okcd").Text = "/n/OPT/VIM_VA2" session.findById("wnd[0]").sendVKey 0 'campo DP session.findById("wnd[0]/usr/ctxtS_DOCID-LOW").Text = DOC 'Acessando a DP session.findById("wnd[0]/usr/ctxtS_DOCID-LOW").SetFocus session.findById("wnd[0]/usr/ctxtS_DOCID-LOW").caretPosition = 4 session.findById("wnd[0]/tbar[1]/btn[8]").press session.findById("wnd[0]/titl/shellcont/shell").pressContextButton "%GOS_TOOLBOX" session.findById("wnd[0]/titl/shellcont/shell").selectContextMenuItem "%GOS_VIEW_ATTA" session.findById("wnd[0]/usr/cntlCCTRL_MAIN/shellcont/shell/shellcont[0]/shell").currentCellColumn = "" session.findById("wnd[0]/usr/cntlCCTRL_MAIN/shellcont/shell/shellcont[0]/shell").selectionChanged session.findById("wnd[0]/usr/cntlCCTRL_MAIN/shellcont/shell/shellcont[0]/shell").pressToolbarButton "F_DASH" session.findById("wnd[1]/usr/cntlCONTAINER_0100/shellcont/shell").currentCellColumn = "BITM_DESCR" 'Abrindo o anexo DP session.findById("wnd[1]/usr/cntlCONTAINER_0100/shellcont/shell").selectedRows = "0" session.findById("wnd[1]/usr/cntlCONTAINER_0100/shellcont/shell").doubleClickCurrentCell 'Abrindo validação DP - versão 002:9501 session.findById("wnd[0]").maximize session.findById("wnd[0]/usr/cntlCL_GRID/shellcont/shell").selectedRows = "0" session.findById("wnd[0]/usr/cntlCL_GRID/shellcont/shell").pressToolbarButton "F_DASH" session.findById("wnd[0]/usr/subAREA2:/PTGWFI/SAPLIEA_002:9501/cntlGC_LOGDB/shellcont/shell").selectedRows = "0" session.findById("wnd[0]/usr/subAREA2:/PTGWFI/SAPLIEA_002:9501/cntlGC_LOGDB/shellcont/shell").pressButtonCurrentCell 'Abrindo validação DP - versão 003:9501 session.findById("wnd[0]").maximize session.findById("wnd[0]/usr/cntlCL_GRID/shellcont/shell").selectedRows = "0" session.findById("wnd[0]/usr/cntlCL_GRID/shellcont/shell").pressToolbarButton "F_DASH" session.findById("wnd[0]/usr/subAREA2:/PTGWFI/SAPLIEA_003:9501/cntlGC_LOGDB/shellcont/shell").selectedRows = "0" session.findById("wnd[0]/usr/subAREA2:/PTGWFI/SAPLIEA_003:9501/cntlGC_LOGDB/shellcont/shell").pressButtonCurrentCell Else