Thread: c.Resize
View Single Post
  #1   Report Post  
Posted to microsoft.public.excel.programming
CR[_2_] CR[_2_] is offline
external usenet poster
 
Posts: 50
Default c.Resize

This part of my macro runs perfectly:

For Each c In Range("D6:D61")
If c.Resize(, 15).Interior.ColorIndex = xlNone Then
c.Offset(, -1).Interior.ColorIndex = 6

It runs though the rows, checks for xlNone and changes the color of the
offset cell.

I would also like it to check the rows and if all cells in a row are blank,
change the color of the offset cell.

I have tried several variations such as:

For Each c In Range("D6:D61")
If c.Resize(, 15).Value = "" Then
c.Offset(, -1).Interior.ColorIndex = 6

But no luck.

Thanks

CR