find first cell in data that is yellow

[flong]

Hi,

I am looking for a vba that can find the first cell in the spreadsheet that is yellow and make that cell active. The search can look down each column and across each row of data until the first yellow cell is found. The search does not have to be specific as long as the first yellow cell (upper left side) is found.

thanks

 

[SIXTH SENSE]

hi!
Try this!

Sub Looking for the yellowCell()
for each c in activesheet.userdange
    if c.interior.colorindex=6 'yellow then
          c.activate
          exit sub
    end if 
next c
end sub

 

[flong]

The for each...... statement does not seem to work?


......................................................................

Sub Looking_for_the_yellow_Cell()
For Each c In ActiveSheet.UserRange
If c.Interior.ColorIndex = 6 Then 'yellow then
c.Activate
Exit Sub
End If
Next c
End Sub

 

[flong]

I figured it out and thanks for the great help.......


Sub Looking_for_the_yellow_Cell()
For Each cell In ActiveSheet.UsedRange
If cell.Interior.ColorIndex = 6 Then
cell.Activate
Exit Sub
End If
Next cell
End Sub