mostrar ocultar imagen con macros (puse el codigo que estoy usando)

buenas a todos necesito su ayuda, tengo este codigo
lo que hace es mostrar la imagen por medio de una forma al cambiar un valor para mostrar una imagen,pero yo quiero que ese valor cambie por medio de una formula y las muestre, las imagenes se llaman 1,2,3,4,5,6, la formula a usar es =+CONTAR.SI($F$5:$F$24;"INCORRECTO")

se que hay que cambiar en la primera parte del codigo lo intente varias veces no pude pues me da un error con

.UserPicture (myImg)

codigo----------------------------------------------------------------
Private Sub Worksheet_Change(ByVal Target As Range)
Dim myImg As String
If Target.Rows.Count + Target.Columns.Count > 2 Then noImg
If Target = Empty Or Intersect(Target, [A5]) Is Nothing Then noImg

myImg = ThisWorkbook.Path & "\Toto\" & Target & ".jpg"
With Shapes("miContenedor").Fill
.Visible = msoTrue: .UserPicture (myImg)
End With
End Sub

Private Sub noImg()
Shapes("miContenedor").Fill.Visible = msoFalse: End
End Sub
fin codigo ---------------------------------------------------------------

agradeceria mucho su ayuda