Macro no longer working with new computer

[sclin16]

Hi,

I have the below macro and just got a new work comp. New comp is unable to run my macro now. I think it might be a Windows 10 issue? I'm also running Office 365. Can anyone please help? I essentially need to have a macro look up a number in column E, find the corresponding jpg in a specific folder, and populate that image in column B.

Thanks in advance for your help!

Sub Kok()
On Error Resume Next
Dim i%, ppath$, sku$


For i = 6 To 500
 sku = Cells(i, 5)
 ppath = "H:\Retail\E-Commerce\Photo Shoots" & sku & "" & sku & "_00_r17.jpg"


With ActiveSheet.Pictures.Insert(ppath)
With .ShapeRange
.LockAspectRatio = msoTrue
.Width = 30
.Height = 40
End With
.Left = ActiveSheet.Cells(i, 2).Left
.Top = ActiveSheet.Cells(i, 2).Top
.Placement = 1
.PrintObject = True
End With
Next
End Sub

 

[Joe4]

With your code the "On Error Resume Next" just masks all & any errors which can cause further problems.

Just to add to what Fluff said here, it is better to use error handling than just ignoring the errors (your problem here is a perfect example why).
In error handling, you capture the errors, and give feedback to the user, so that they know there is an issue.

I just did an example like that here today: https://www.mrexcel.com/forum/excel...e-tab-based-list-post5282157.html#post5282157
Chip Pearson wrote a good write-up on Error Handling here: http://www.cpearson.com/excel/errorhandling.htm

 

[sclin16]

Good to know, thank you both for your help.

 

[Fluff]

Glad we could help & thanks for the feedback