Forum Discussion
limiting check for blanks for some columns only
Private Sub Worksheet_Change(ByVal Target As Range) Dim Cell As Range On Error GoTo OutOfRange If Target.Row = 2 And Target.Offset(1) = "" Then Exit Sub For Each Cell In Intersect(T...
For Each Cell In Intersect(Target, Columns("A:J"))
I tried changing the above to:
For Each Cell In Intersect(Target, Columns("A:D,G:H"))
not only did it not work, the whole sub just stop working!
...---... (sos)!
many many thanks
- Mr Logit provided the correct script just for that..
For Each Cell In Intersect(Target, Columns("A:D,G:H"))
change the Columns into Range and it will do the trick:
For Each Cell In Intersect(Target, Range("A:D,G:H"))
hope someone might need this too...