opdater useform

Hej

Jeg har en useform med 3 grafer.
Disse grafer vil jeg have til at blive opdateret når data ændres for dem.

min kode ser således ud:

userform:
Dim ChartNum As Integer

Private Sub UserForm_Initialize()
    ChartNum = 1
    UpdateChart
End Sub

Private Sub PreviousButton_Click()
    If ChartNum = 1 Then ChartNum = 3 Else ChartNum = ChartNum - 1
    UpdateChart
End Sub

Private Sub NextButton_Click()
    If ChartNum = 3 Then ChartNum = 1 Else ChartNum = ChartNum + 1
    UpdateChart
End Sub

Private Sub CloseButton_Click()
    Unload Me
End Sub

Private Sub UpdateChart()


    Set CurrentChart = Sheets("Charts").ChartObjects(ChartNum).Chart
    CurrentChart.Parent.Width = 300
    CurrentChart.Parent.Height = 150

'  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

modul:
Sub ShowChart()
    UserForm1.Show 0
End Sub