Ya encontré la repuesta a lo que buscaba. Solo tenía que agregarle el comando ThisWorkbook. Path En ese caso queda así ActiveSheet.Image1.Picture = LoadPicture(ThisWorkbook.Path & "\fotos\" & foto & ".jpg") Solo con eso ya la ubicación no cambiará...