VBA ved ændring af cellefinhold

Nu ved jeg ikke hvilke celler der er input celler, men I nedenstående makro checkes der om der er lavet ændringer i området A1:I4, og hvis der er, og I4 bliver mere end 16 kommer beskeden

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("A1:I4")) Is Nothing Then
If Range("I4") > 16 Then
MsgBox ("I4 er over 16. Søg hjælp hos Oliver")
End If
End If
End Sub

Det var lige det jeg søgte tusid tak for hjælpen

Kan man gøre det med flere celler? så hvis man har et område mere i samme ark?

Ja ikke noget problem. Her er er eksempel hvor både input området og test området er udvidet

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("A1:C4, E1:F14")) Is Nothing Then
If Range("I4") > 16 Or Range("I6") > 16 Then
MsgBox ("I4 eller I6 er over 16. Søg hjælp hos Oliver")
End If
End If
End Sub

fedt tak