Hi,
I have a a target macro that starts with
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Keycells as Range
Set KeyCells = Range("R:R,AF:AF,AT:AT,BH:BH,BV:BV,CJ:CJ,CX:CX,DL:DL")
If Not Application.Intersect(KeyCells, Range(Target.Address)) _
Is Nothing...