Cacher is the code snippet organizer for pro developers

sub add_pic1()
Dim cun As Integer 

For cun = 1 To 52 
    Range("b" & cun).Select 
    ActiveSheet.Pictures.Insert( _ 
    "D:\Pictures\students\" & cun & ".jpg" _ 
    ).Select 
Next cun 
End Sub