multiple cells

[ssrvant]

I am trying to get the following code to work for a range of cells.
Each time I put in for example Range("A1:A10").value = "whatever" the
system says that there is an error.

This is what I have so far:

Dim n
n = 1
If Range("N6").Value < n Then
Range("D6").Value = ""
Range("e6").Value = ""
End If

This what I would like to do.. something to this effect

Dim n
n=1
if range("N6:N31").Value < n then
Range("D631").Value = ""
Range("E6:E31").Value = ""

 

[Bernie Deitrick]

Dim n As Integer
Dim myCell As Range
n = 1
For Each myCell In Range("N6:N31")
If myCell.Value < n Then
Cells(myCell.Row,4).Value = ""
Cells(myCell.Row,5).Value = ""
End If
Next myCell

And please don't multi-post - Crossposting is OK...
HTH,
Bernie
MS Excel MVP

 

[Dave Peterson]

You have another reply at one of your other posts.