We value your feedback.
Take our survey and automatically be enter to win anyone of the following:
Yeti Cooler, Amazon eGift Card, and Movie eGift Card!
Sub InsereFotografia() On Error Resume Next Dim result() As String result = Split(ActiveCell.Value, "-") Dim num As Long num = result(0) ActiveCell.Offset(-2, 0).Select ActiveSheet.Pictures.Insert( _ "P:\Backup Montagem Final\ARQUIVO\Agenda MF 2011\FOTOS MF 2011\000" & num & ".JPG").Select End Sub
Add your voice to the tech community where 5M+ people just like you are talking about what matters.
Join the community of 500,000 technology professionals and ask your questions.