Macro para cargar fotos

Buenos días tengo el siguiente código y quisiera saber como hacer para que se ejecute con un botón en lugar de que sea cuando se modifica la celda

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error Resume Next
nombre = Target.Value
ruta = "\\portal\CS\fotos\"
If Target.Address = "$B$26" Then
ActiveSheet.Image1.Picture = LoadPicture(ruta & nombre & ".jpg")
ActiveSheet.Image1.PictureSizeMode = 1
ElseIf Target.Address = "$B$40" Then
ActiveSheet.Image4.Picture = LoadPicture(ruta & nombre & ".jpg")
ActiveSheet.Image4.PictureSizeMode = 1
ElseIf Target.Address = "$B$55" Then
ActiveSheet.Image7.Picture = LoadPicture(ruta & nombre & ".jpg")
ActiveSheet.Image7.PictureSizeMode = 1
ElseIf Target.Address = "$F$26" Then
ActiveSheet.Image2.Picture = LoadPicture(ruta & nombre & ".jpg")
ActiveSheet.Image2.PictureSizeMode = 1
ElseIf Target.Address = "$F$40" Then
ActiveSheet.Image5.Picture = LoadPicture(ruta & nombre & ".jpg")
ActiveSheet.Image5.PictureSizeMode = 1
ElseIf Target.Address = "$F$55" Then
ActiveSheet.Image8.Picture = LoadPicture(ruta & nombre & ".jpg")
ActiveSheet.Image8.PictureSizeMode = 1
ElseIf Target.Address = "$J$26" Then
ActiveSheet.Image3.Picture = LoadPicture(ruta & nombre & ".jpg")
ActiveSheet.Image3.PictureSizeMode = 1
ElseIf Target.Address = "$J$40" Then
ActiveSheet.Image6.Picture = LoadPicture(ruta & nombre & ".jpg")
ActiveSheet.Image6.PictureSizeMode = 1
ElseIf Target.Address = "$J$55" Then
ActiveSheet.Image9.Picture = LoadPicture(ruta & nombre & ".jpg")
ActiveSheet.Image9.PictureSizeMode = 1
End If
End Sub

saludos