Const Kolom As String = "G"
Private Sub Worksheet_Change(ByVal Target As Range)
 'Voor als er nog geen shape in de bewuste cel staat of de valg niet bestaat
 On Error Resume Next
  
  'Is de bewuste kolom kolom G
  If Target.Column = Kolom Then
    'Is het rij 1 t/m rij 32
    If Target.Row >= 1 And Target.Row <= 32 Then
      'Verwijder de shape die ik genaamd heb naar het adres van de cel
      Shapes(Cells(Target.Row, Target.Column + 1).Address).Delete
      'Pak de naam van het land en copieer de vlag van dat land
      Shapes(Cells(Target.Row, Kolom)).Copy
      'Selecteer de cel naast het land
      Cells(Target.Row, Target.Column + 1).Select
      'Plaats de vlag in de cel
      Paste
      'Verander de naam van de shape in adres van de cel
      'zodat de volgende keer bij het verandere de juiste cel wordt verwijderd
      Selection.Name = Cells(Target.Row, Target.Column + 1).Address
      'selecteer weer de cel van de landnaam om de selectie van de shape ongedaan te maken
      Cells(Target.Row, Target.Column).Select
    End If
  End If
End Sub