Macro selecting rows.

[Tom]

Hi All

How can i creat a macro that will select every other colum
in the worksheet?

Thanks in advance.

 

[Frank Kabel]

Hi
what are you trying to do with this selection?

 

[Tom]

actually every other row!

Thanks.

 

[Tom Ogilvy]

Dim rng as Range, cell as Range
for each cell in UsedRange.Columns(1).Cells
if cell.row mod 2 = 0 then
if rng is nothing
set rng = cell
else
set rng = union(rng,cell)
end if
end if
Next
if not rng is nothing then
rng.EntireRow.Select
End if

 

[Tom]

Hey Frank

I want to shade them! I want to shade every other row.

Thanks.

 

[Frank Kabel]

Hi
for this I would use conditional formating. See:
http://www.cpearson.com/excel/banding.htm