Uso o seguinte código para puxar imagens de uma pasta no pc.

Sub Macros()

Call Imagem1
Call Imagem2
Call Imagem3

End Sub

Sub Imagem1()

Range("A2").Select 'This is where picture will be inserted
Dim picname As String
picname = Range("F2")  'This is the picture name
ActiveSheet.Pictures.Insert("C:fotos" & picname & ".jpg").Select 'Path to where pictures are stored
'''''''''''''''''''''''''''''''''''''''''''''''''''''''
' This resizes the picture
'''''''''''''''''''''''''''''''''''''''''''''''''''''''
With Selection
.Left = Range("A2").Left
.Top = Range("A2").Top
.ShapeRange.LockAspectRatio = msoFalse
.ShapeRange.Height = 200#
.ShapeRange.Width = 265#
.ShapeRange.Rotation = 0#
End With

Range("A10").Select
Application.ScreenUpdating = True

Exit Sub

ErrNoPhoto:
MsgBox "Unable to Find Photo" 'Shows message box if picture not found
Exit Sub
Range("B20").Select

End Sub

Sub Imagem2()

Range("A3").Select 'This is where picture will be inserted
Dim picname As String
picname = Range("F3")  'This is the picture name
ActiveSheet.Pictures.Insert("C:fotos" & picname & ".jpg").Select 'Path to where pictures are stored
'''''''''''''''''''''''''''''''''''''''''''''''''''''''
' This resizes the picture
'''''''''''''''''''''''''''''''''''''''''''''''''''''''
With Selection
.Left = Range("A3").Left
.Top = Range("A3").Top
.ShapeRange.LockAspectRatio = msoFalse
.ShapeRange.Height = 200#
.ShapeRange.Width = 265#
.ShapeRange.Rotation = 0#
End With

Range("A10").Select
Application.ScreenUpdating = True

Exit Sub

ErrNoPhoto:
MsgBox "Unable to Find Photo" 'Shows message box if picture not found
Exit Sub
Range("B20").Select

End Sub

Sub Imagem3()

Range("A4").Select 'This is where picture will be inserted
Dim picname As String
picname = Range("F4")  'This is the picture name
ActiveSheet.Pictures.Insert("C:fotos" & picname & ".jpg").Select 'Path to where pictures are stored
'''''''''''''''''''''''''''''''''''''''''''''''''''''''
' This resizes the picture
'''''''''''''''''''''''''''''''''''''''''''''''''''''''
With Selection
.Left = Range("A4").Left
.Top = Range("A4").Top
.ShapeRange.LockAspectRatio = msoFalse
.ShapeRange.Height = 200#
.ShapeRange.Width = 265#
.ShapeRange.Rotation = 0#
End With

Range("A10").Select
Application.ScreenUpdating = True

Exit Sub

ErrNoPhoto:
MsgBox "Unable to Find Photo" 'Shows message box if picture not found
Exit Sub
Range("B20").Select

End Sub

Queria saber como faço para caso o "Call Imagem2" dê algum erro, como pela inexistência da imagem na fonte ele passar e executar a próxima macro no caso a "Call Imagem3".

Atualmente ele aparece uma janela de erro e não continua, daí eu tenho q criar na mão uma imagem vazia no paint. o problema é q essa minha planilha já tem mais de 8 mil imagens.