Guru do Excel e Power BI

Bom dia!
Senhores, tenho uma macro em um arquivo de excel aqui no trabalho que salva uma sheet em uma pasta específica de um SharePoint. Essa macro "print" uma sheet e salva um arquivo ".png" na mesma pasta do arquivo excel. Porém há 5 dias que está apresentando esse erro na linha EXPORT e eu não consegui identificar o problema.

Mensagem de erro quando rodo a macro:
Run-time error 'Erro -2146697210 (800c00006)':
Method 'Export' of object 'Chart' failed

segue o código:
OBS: destaquei em vermelho a linha onde o erro está acontecendo.

Option Explicit


Sub salvar_imagem()
Dim WS As Worksheet, Inpt As Worksheet 'declarando variável da sheet
Dim rgExp As Range 'declarando variável do range
Dim CH As ChartObject 'determinando a seleção do "gráfico"
Dim pictitle As String 'título do arquivo a ser gerado
Dim NomPastTrab As String 'Seleciona a célula onde o nome do arquivo a ser gerado encontra-se



Set Inpt = Sheets("INFORMES") 'determina a sheet onde a macro vai rodar
Set rgExp = Inpt.Range("A1:I59") 'determina o intervalo a ser capturado
pictitle = Worksheets("INFORMES").Range("Z2") 'monta o título do arquivo
NomPastTrab = Range("Z2").Value
For Each WS In ThisWorkbook.Sheets
If WS.Name = "INFORMES" Then
WS.Range("A1:I59").CopyPicture Appearance:=xlScreen, Format:=xlBitmap
Set CH = WS.ChartObjects.Add(Left:=rgExp.Left, Top:=rgExp.Top, Width:=rgExp.Width, Height:=rgExp.Height)
CH.Chart.ChartArea.Select
CH.Chart.Paste
CH.Chart.Export ThisWorkbook.Path & "\" & NomPastTrab & ".png"
CH.Delete
End If
Next WS
MsgBox "Relatório salvo com sucesso!"
End Sub

Não sabia que dava pra fazer isso com o excel
fiz uma planilha com alguns dados, e deu certo aqui, então talvez seja algum problema de permissão ou alguma outra coisa, acho que sem a sua planilha fica dificil de descubrir.
Tentou fazer uma nova planilha ? ou ir tirando os dados até deixar de dar o erro ?

Em anexo estou enviando a planilha que fiz com seu código.