Hello i am trying to copy a chart to a user form using :

Private Sub cmdagecharts_Click()
Dim chtchart As Chart
Dim image

Set chtchart = Sheet9.ChartObjects(1).Chart
image = chtchart.CopyPicture(xlScreen, xlPicture)
Set imgchtpic1.Picture = pastePicture(image)


End Sub

each time i run it this bit of code i get the error message Expected
Function or Variable

Your help is despirately needed
Many thanks