Math, het is een zogenaamde "event procedure". Deze kan je alleen in een sheet-module plaatsen anders werkt die niet. Knip 'm dus uit die standaard module en zet 'm in de module van "Sheet1".

Math, ik weet niet of ik je helemaal begrijp. Maar was dit je bedoeling?
Private Sub Worksheet_Change(ByVal Target As Range)
    Set oRange = Range("A:A")
    If Intersect(Target, oRange) Is Nothing Then Exit Sub
    If Target.Value + Target.Offset(, 3).Value >= 10 Then
        MsgBox "Cel " & Target.Address(False, False) & " heeft de maximale waarde 10 bereikt.", vbInformation, "OPGEPAST"
    End If
End Sub


Hallo Math,

de macro van RedHead doet nochtans precies wat jij verlangt....
Er zat wel een verwijzing in naar cel in kolom "D" (Offset(, 3)) omdat hij waarschijnlijk een som van A+C verwachtte in kolom "D".

Als je dus Target.Offset(, 3).Value vervangt door Target.Offset(, 2) dan worden de waarden in kolom "A" en "C" bekeken.

Na deze aanpassing, als er in kolom "A" een waarde wordt ingevuld, dan kijkt de macro welke waarde er is ingevuld in kolom "C" van dezelfde rij. Als de som van die "A" en "C" groter of gelijk is aan 10 dan krijg je een melding.

Je zou eventueel nog de lijn van de MsgBox kunnen wijzigen in:
MsgBox "De som van cel " & Target.Address(False, False) & " en cel " & Target.Offset(, 2).Address(False, False) & " heeft de waarde 10 of hoger.", vbInformation, "OPGEPAST"
SoftAid              

Hallo Heren,

Ik heb de code beken, het was voor mij Latijn en Grieks door elkaar. Maar door wat te stoeien ben ik het toch gaan begrijpen wat de code doet. Wil jullie bedanken voor de super hulp. Misschien moet ik me meer in VBA gaan verdiepen.
Waar hebben jullie al de kennis uitgehaald ?
Nogmaals bedankt.
Gr. Math

Waar hebben jullie al de kennis uitgehaald ?

En ik laat RedHead het vuile werk doen, en ga dan met de pluimen lopen 

Succes met je VBA-studie, je zal verschieten hoeveel plezier (en hoofdpijn) je er mee kan beleven !!

SoftAid