VBA foreach or loop

[Beevs91]

Hi,

I use these forums a lot, but this is my first post.

I have the following VBA in an excel sheet at the moment....

Sub Worksheet_Change(ByVal Target As Range)
'When D7 changes, I7 clears, and K7, M7, O7 all clear.
If Target.Address(0, 0) = "D7" Then Range("I7, K7, M7, O7").ClearContents
End Sub

It is set up with dependant drop downs, so that if D7 changes to something else from the drop down, then I7, K7, M7 and O7 all clear (just to avoid any of these cells being populated with the wrong drop down data).

This works perfectly fine for row 7. I am just struggling to get it to repeat down to row 300.

Can anyone help please? (Probably a easy fix for most!)

Thanks in advance

 

[Fluff]

Hi & welcome to MrExcel
Try

Sub Worksheet_Change(ByVal Target As Range)
'When D7 changes, I7 clears, and K7, M7, O7 all clear.
   If Not Intersect(Target, Range("D7:D300")) Is Nothing Then
      Intersect(Target.EntireRow, Range("I:I, K:K, M:M, O:O")).ClearContents
   End If
End Sub

 

[Beevs91]

Works perfectly! Thanks very much for your help, much appreciated!

 

[Fluff]

Glad to help & thanks for the feedback