Você tentou atribuir uma letra ao seu pen drive tenta tira tudo formata ele e depois atribui a letra x.
Você atribuindo uma lera toda vez que se conectar vai ser x em qualquer computador,e esse é o problema pois toda vez o computador atribui uma letra para uma usb diferente dependendo quem se conectou primeiro ou em uma porta diferente...

Bom dia
O pen foi só um exemplo, eu uso muito o HD externo, mas a questão é que se eu mando este arquivo por e-mail, a pessoa que recebe não vai ver as imagens inseridas.
Se tiver algum comando pra ser inserido no VBA, por favor...
Agradeço a atenção

A planilha P5W vai ser dinâmica?
Tipo...Mudando os dados o tempo todo?

O problema é que vc não exporta a imagem e sim cria uma imagem e acaba vinculando ela a imagem que vc escolheu tirando ela do computador não pega mesmo...
Por isso tente adaptar.
http://www.planilhando.com.br/forum/download/file.php?id=18339
ou essa
http://www.planilhando.com.br/forum/viewtopic.php?f=20&t=17364

Na verdade isso acontece quando se usa o metodo "Pictures.Insert"
Para não acontecer isso, use: "AddPicture"
Exemplo:

' Ao inves disso: 
Set Imagem = ActiveSheet.Pictures.Insert(Pict)

'Use isso: 
Application.ActiveSheet.Shapes.AddPicture Pict, False, True, Range(Celula).Left, _
         Range(Celula).Top, Range(Celula).Width, Range(Celula).Height

BOA NOITE
FIZ AS ADAPTAÇÕES.... E DEU CERTO!!
MAIS UMA VEZ AGRADEÇO PELA AJUDA!!
YUKIO

SEGUE A ALTERAÇÃO:
Application.ActiveSheet.Shapes.AddPicture Pict, False, True, Range(Celula).Left + 3, Range(Celula).Top + 3, Range(Celula).Width * 1 - 4, Range(Celula).Height * 1 - 4