Em primeiro lugar, troque:
If txtref.Text = "" Then
MsgBox "Digite uma refêrencia valida"
txtref.SetFocus
End If
por:
If txtref.Text = "" Then
MsgBox "Digite uma refêrencia valida"
txtref.SetFocus
Exit Sub
End If
Troque também:
PicPath = "C:UsersgonçaloDesktopIMAGENS"
por:
PicPath = "C:UsersgonçaloDesktopIMAGENS"
Felipe Costa Gualberto
Microsoft Excel MVP
http://www.ambienteoffice.com.br
Postado : 22/06/2012 7:51 pm