Visual Basic - vb y exel que paso?

Bueno es mi primera en un foro y espero que me puedan ayudar lo que pasa es que estoy realizando una ficha minera y nesesito jalar una imagen (+.jpg) de una carpeta ya que con cada cambio de mina tambien debe cambiar su foto y esto debe ser automatico miren esto es lo que tengo y mi error resaltado en amarillo yo no entiendo por que el error.

rivate Sub CommandButton1_Click()
Range("A1:W180").Select
Selection.PrintOut Copies:=1, Collate:=True
Range("A1:T1").Select
End Sub

Private Sub Image1_Click()

End Sub

Private Sub Image5_Click()

End Sub

Private Sub Worksheet_Activate()
Dim path As String, path1 As String, path2 As String, path3 As String, path4 As String, ID As Integer

Image1.PictureSizeMode = fmPictureSizeModeClip
Image2.PictureSizeMode = fmPictureSizeModeClip
Image3.PictureSizeMode = fmPictureSizeModeStretch
Image4.PictureSizeMode = fmPictureSizeModeClip
Image5.PictureSizeMode = fmPictureSizeModeClip

ID = Cells(6, 1).Value

path1 = "C:\Gestion_2006\Atlas\Fichas_Municipales\mapas_de_ubicacion"
path1 = "C:\Gestion_2006\Atlas\Fichas_Municipales\mapas_de_ubicacion"
path2 = "D:\_-IMPORTANTE_(5-julio-05)\Fichas_Municipales\piramide_pob\"
path3 = "D:\_-IMPORTANTE_(5-julio-05)\Fichas_Municipales\imagenes_cobuso\"
path4 = "D:\_-IMPORTANTE_(5-julio-05)\Fichas_Municipales\imagenes_plus\"

If 1200 < ID And ID < 1281 Then

Image1.Picture = LoadPicture(path1 & ID & ".JPG")<------ error? que paso no estiendo?
Image2.Picture = LoadPicture(path1 & ID & ".JPG")
Image3.Picture = LoadPicture(path2 & ID & ".JPG")
Image4.Picture = LoadPicture(path3 & ID & ".JPG")
Image5.Picture = LoadPicture(path4 & ID & ".JPG")
Else

MsgBox ("Error, no es parte de los municipios de La Paz")
End If
End Sub