Monitor multiple changes in a range. Help PLzz

Hello!
I' am using the following code to monitor changes in specific ranges and it works just fine.

Set HEK = Range("D2:D25,K2:K25,R2:R25,Y2:Y25,AF2:AF25,AM2:AM25,AT2:AT25,BA2:BA25,BH2:BH25")
If Not Application.Intersect(HEK, Range(Target.Address)) _
MsgBox Target.Value
Endif

The issue i am having is that when i make change to several cells at once it come with the following error : Run-time error '3': Type mismatch.
is there a possible way to make the "msgbox" pop up separately for each change one following an other ??

thanks in advance

That's exactly what I need, thank you matrix