Mij lijkt een tekst als deze beter:
"Beste HSV en VenA,
Bedankt voor de aangedragen suggesties hiermee is mijn vraag opgelost en zal deze dan ook als zodanig markeren.Voor eventueel nieuwe vragen zal ik een een nieuw draadje openen om het forum een beetje leesbaar te houden."
De titel 'Gegevens overdracht onder elkaar' heeft totaal niets te maken met plaatjes wel of niet zichtbaar maken.
Om je toch een beetje idee te geven hoe je het kan oplossen:
Je hebt er het Worksheet_Change event voor nodig. In de code neem je dan zoiets op
"Beste HSV en VenA,
Bedankt voor de aangedragen suggesties hiermee is mijn vraag opgelost en zal deze dan ook als zodanig markeren.Voor eventueel nieuwe vragen zal ik een een nieuw draadje openen om het forum een beetje leesbaar te houden."

De titel 'Gegevens overdracht onder elkaar' heeft totaal niets te maken met plaatjes wel of niet zichtbaar maken.
Om je toch een beetje idee te geven hoe je het kan oplossen:
Je hebt er het Worksheet_Change event voor nodig. In de code neem je dan zoiets op
Code:
Me.Shapes("Picture 1").Visible = [A1] = 1