View Single Post
  #1   Report Post  
Posted to microsoft.public.excel.programming
John John is offline
external usenet poster
 
Posts: 2,069
Default selecting columns and a loop

I have the following code with which I want to highlight new entries to my
spreadsheet. The new entries are marked "new" in column A. I am testing
some code and cannot remember/figure out how to select the range I would like
to add color too. I want to highlight the active row and select up to column
Z and fill in a color. Here is the code, which starts what I want to do but
doesn't quite bring it home...

a second question would be: Will this code work with more than one sheet if
I select a new sheet?

Sheets("c").Select
Set wks = ActiveSheet
Set rngToSearch = wks.Columns(1)

Set rngFound = rngToSearch.Find("new")
If rngFound Is Nothing Then
MsgBox "Nope"
Else
Do
rngFound.Select
???????????????????????
Range(ActiveCell, Columns.End(xlLeft)).Select ???
With Selection.Interior
.ColorIndex = 36
.Pattern = xlSolid
End With

Set rngFound = rngToSearch.FindNext
Loop Until rngFound Is Nothing
End If
End Sub