多個欄位時指定欄位有變更時則執行程式

VBA程式碼

Private Sub Worksheet_Change(ByVal Target As Range)
Select Case Target.Column
Case 3
 MsgBox ("OK")
Case 6
 MsgBox ("OK")
Case 9
 MsgBox ("OK")    
End Select
End Sub