Error 53 en macros no encuentra objeto

Estimado Luis, acá nuevamente con una inquietud.

Tengo el siguiente código:

Private Sub Worksheet_Change(ByVal Target As Range)
foto = Range("B23").Value
foto = Replace(foto, " ", "-")
foto = foto & ".jpg"
ActiveSheet.Unprotect
Rutayarchivo = ActiveWorkbook.Path & "\" & foto
ActiveSheet.Image1.Picture = LoadPicture(Rutayarchivo)
ActiveSheet.Protect DrawingObjects:=False, Contents:=True, Scenarios:=True
End Sub

Cuando la celda B23 está vacía, aparece un error porque no encuentra el objeto. Cómo logro evitar esto?, necesito algo así como una función IF, pero no se el código.

Gracias