Het tweede voorbeeld zal de gebruiker verhinderen een cel te selecteren buiten het gebied A1:E5. Indien de gebruiker op bijvoorbeeld cel F3 klikt, verschijnt er een boodschap; zie figuur hiernaast. Dit mag alleen gebeuren voor het werkblad "Blad1". Hiervoor dient u de volgende stappen te ondernemen.

1. Start Excel en ga naar de VBA editor. Dubbelklik in de Projectverkenner op het object Blad1. Indien de Projectverkenner niet zichtbaar is, kunt u die bekomen met het menu Beeld Projectverkenner.

2. Selecteer in het objectvak (waar nu staat 'Algemeen') het item Worksheet. Selecteer in het procedurevak de gebeurtenis SelectionChange. Merk op dat er een invoerparameter 'target' is voor deze procedure. Dit is de cel waar de gebruiker op geklikt heeft.

3. Schrijf de volgende code.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

  If Application.Intersect(Target, Range("A1:E5")) Is Nothing Then
    MsgBox "Alleen cellen uit A1:E5 kunnen geselecteerd worden"
  Else
  End If
End Sub

4. Selecteer het werkboek. Klik op Blad1 in een cel buiten het gebied A1:E5. U krijgt dan de boodschap in de figuur hierboven.