Olá à todos!

Estou com um problema, que está me atormentando.

Precisa mudar múltiplas Images (Image1, Image2,...,Image10) em múltiplas abas (Proposta1, Proposta2,...,Proposta10). Havia conseguido, porém não sei o porque não está funcionando devidamente.
Abaixo o código que estou usando:

For Each ws In Worksheets
    If Left(Trim(ws.Name), 8) = "Proposta" Then
        If Target.Row = 5 And Target.Column = 4 Then
            ws.Image1.Picture = LoadPicture(Worksheets("Rolos Compactadores").range("AH5").Value)
        End If
        If Target.Row = 5 And Target.Column = 7 Then
            ws.Image2.Picture = LoadPicture(Worksheets("Rolos Compactadores").range("AH7").Value)
        End If
        If Target.Row = 5 And Target.Column = 10 Then
            ws.Image3.Picture = LoadPicture(Worksheets("Rolos Compactadores").range("AH9").Value)
        End If
        If Target.Row = 5 And Target.Column = 13 Then
            ws.Image4.Picture = LoadPicture(Worksheets("Rolos Compactadores").range("AH11").Value)
        End If
        If Target.Row = 5 And Target.Column = 16 Then
            ws.Image5.Picture = LoadPicture(Worksheets("Rolos Compactadores").range("AH13").Value)
        End If
        If Target.Row = 5 And Target.Column = 19 Then
            ws.Image6.Picture = LoadPicture(Worksheets("Rolos Compactadores").range("AH17").Value)
        End If
        If Target.Row = 5 And Target.Column = 22 Then
            ws.Image7.Picture = LoadPicture(Worksheets("Rolos Compactadores").range("AH19").Value)
        End If
        If Target.Row = 5 And Target.Column = 25 Then
            ws.Image8.Picture = LoadPicture(Worksheets("Rolos Compactadores").range("AH21").Value)
        End If
        If Target.Row = 5 And Target.Column = 28 Then
            ws.Image9.Picture = LoadPicture(Worksheets("Rolos Compactadores").range("AH23").Value)
        End If
        If Target.Row = 5 And Target.Column = 31 Then
            ws.Image10.Picture = LoadPicture(Worksheets("Rolos Compactadores").range("AH25").Value)
        End If
    End If
Next

Detalhe: A primeira imagem (Image1) é alterada em todas as abas, porém as demais não.
Obs.: cada aba Proposta possui um número de imagens relacionado ao número da mesma (Proposta10 possui 10 imagems)

Poderiam me ajudar, por favor?