By looping

Dim rng as Range, cell as Range
for each cell in rows(9).Cells
if cell.interior.ColorIndex = 15
if rng is nothing then
set rng = cell
else
set rng = union(cell,rng)
end if
end if
Next
if not rng is nothing then
msgbox rng.Address
End if

--
Regards,
Tom Ogilvy

"CG Rosén" wrote in message
...
Good Day,

How to approach the task to find ranges by its interior
color? Have intermitent, and unevenly, in the same Row, ranges with the
same
interior color (=15). Is it possible to find the addresses of these
ranges?
The ranges contain no values.

Brgds

CG Rosén