Bak! problem med graf i userform

Jeg fik dette af dig, hvor jeg har en graf der hedder Diagram1 som ligger i Ark1. Når jeg bruger nedenstående kode får jeg en fejlkode. Jeg vil jo gerne have en knap ude på regnearket der kan kalde grafen frem :o). Jeg håber du kan hjælpe.

Private Sub UserForm_Initialize()
    UpdateChart
End Sub

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
Kill ThisWorkbook.Path & Application.PathSeparator & "temp.gif"
End Sub

Private Sub UpdateChart()
    Dim CurrentChart As Chart
    Dim Fname As String
   
    Set CurrentChart = Sheets("Ark1").ChartObjects(Diagram1).Chart
 
'  Save chart as GIF
    Fname = ThisWorkbook.Path & Application.PathSeparator & "temp.gif"
    CurrentChart.Export Filename:=Fname, FilterName:="GIF"

'  Show the chart
    Image1.Picture = LoadPicture(Fname)
End Sub