For Each in a Range

[xzmike]

Can I use a For Each to loop thru a named range, and say change the values? I know I can do it with a for next like the following:

Dim i As Integer

For i = 1 To Range("MyRange").Cells.Count
Range("Myrange").Cells(i).Value = Range("Myrange").Cells(i).Value * 3
Next i

Thanks.
Mike

 

[Legacy 98055]

Yes, Mike.

This will effectively replace your code:

Dim c As Range

For Each c In [MyRange]
    c = c * 3
Next

Tom

 

[xzmike]

Tom,

When I try that I get the error message Expected Function or Variable.
and MyRange is selected.

Dim c As Range

For Each c In [MyRange]
c = c * 3
Next

 

[Legacy 98055]

Well,
I just tested it out.
I'm assuming that you have a range named "MyRange"?

if so, maybe this is better code...

Dim c As Range

For Each c In Range("MyRange")
    c.Value = c.Value * 3
Next

Tom