Erro "70" na execução "permissã negada"

Caros amigos preciso de uma ajuda, estou tentando importar um gráfico do Excel para uma userforme e esta dando um erro em tempo de execução "70" "permissão negada" como sege a baixo:

Private Sub UserForm_Initialize()


Set currentchart = Sheets("Plan1").ChartObjects(1).Chart
currentchart.Parent.Width = 200
currentchart.Parent.Height = 200

nome = ThisWorkbook.Path & Application.PathSeparator & "temp.gif"
currentchart.Export Filename:=nome, filtername:="GIF"

Image1.Picture = LoadPicture(nome)

End Sub