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

--
Regards,
Tom Ogilvy



"Tom" wrote in message
...
actually every other row!

Thanks.
-----Original Message-----
Hi All

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

Thanks in advance.
.