any ideas how i can do this? I have the following macro to highlight a
series of cells, but for it to work correctly, the first step needs to
be to select the first cell in the current row.

thanks


ActiveCell.Offset(0, 0).Range("A1:M1").Select
Selection.Interior.ColorIndex = 15
ActiveCell.Offset(1, 0).Range("A1").Select

Do you mean so that the colouring only starts at a cell with a value?

Can you give an example?

--
---
HTH

Bob


(there's no email, no snail mail, but somewhere should be gmail in my addy)



wrote in message
...
any ideas how i can do this? I have the following macro to highlight a
series of cells, but for it to work correctly, the first step needs to
be to select the first cell in the current row.

thanks


ActiveCell.Offset(0, 0).Range("A1:M1").Select
Selection.Interior.ColorIndex = 15
ActiveCell.Offset(1, 0).Range("A1").Select

I am really not clear on what you want to do and the code you posted give me
no help.

Perhaps this???
cells(activecell.row, "A").Interior.ColorIndex = 15
--
HTH...

Jim Thomlinson


" wrote:

any ideas how i can do this? I have the following macro to highlight a
series of cells, but for it to work correctly, the first step needs to
be to select the first cell in the current row.

thanks


ActiveCell.Offset(0, 0).Range("A1:M1").Select
Selection.Interior.ColorIndex = 15
ActiveCell.Offset(1, 0).Range("A1").Select

activesheet.cells(activecell.row,1).select

Or maybe you really want:
Activecell.entirerow.range("a1:M1").Interior.Color Index = 15



wrote:

any ideas how i can do this? I have the following macro to highlight a
series of cells, but for it to work correctly, the first step needs to
be to select the first cell in the current row.

thanks

ActiveCell.Offset(0, 0).Range("A1:M1").Select
Selection.Interior.ColorIndex = 15
ActiveCell.Offset(1, 0).Range("A1").Select

--

Dave Peterson