Verilen alanda işlem yapıldığında uyarı mesajı veren VBA kodudur.
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
Dim alan As Range
Set alan = Range("B:B")
If Not Intersect(Target, alan) Is Nothing Then
MsgBox "Mesaj"
End If
End Sub