makro'da aralıklı sutun

[İhsan Tank]

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
If Intersect(Target, Range("b1:f65536")) Is Nothing Or Target = "" Then Exit Sub
For x = 1 To Sheets.Count
Say = WorksheetFunction.CountIf(Sheets(x).Range("b1:f65536"), Target)
knt = knt + Say
Next
If knt > 1 Then
MsgBox "Bu veri daha önce girilmiş.", vbCritical, "UYARI"
Target = ""
End If
End Sub

selam arkadaşlar bu kodu nasıl c ve d sutunlarına işlem yaptırmadan kullanabilirim
örnek dosya http://www.excel.web.tr/showthread.php?p=448792#post448792
linktedir. yardımlarınızı bekliyorum

 

[Orion1]

If Intersect(Target, Range("b1:b65536,e1:e65536,f1:f65536")) Is Nothing Or Target = "" Then Exit Sub

 

[İhsan Tank]

hocam teşekkür ederim

 

[Orion1]

hocam teşekkür ederim

Rica ederim.