Estou com um probrema que não estou a conseguir resolver...

Estou a realizar um trabalho em excel para realizar o registo biográfico dos alunos. coloquei uma imagem (controlo Activex) e ao clicar neste botão imagem, pretendo que abra a janela para procurar imagens. Inseri o seguinte código:

Private Sub Image1_Click()
Dim myPictName As Variant
myPictName = Application.GetOpenFilename _
(filefilter:="Picture Files,*.jpg;*.bmp;*.tif;*.gif")
With myPictName
If myPictName = False Then
Exit Sub
End If
Me.Image1.Picture = LoadPicture(myPictName)
End With
End Sub

Ao fazer Run Sub/User Form, aparece uma janela a dizer "compile error: Sub or Function not defined". Ao fechar a janela, aparece a amarelo "Private Sub Image1_Click()" e selecionado "LoadPicture". Já tentei várias coisas mas sem sucesso.

Será que alguém pode ajudar?