Searching for interior color and borders

[caffeine]

I'd like to find the last row that contains any one of the following things:

1. Text
2. Interior color
3. Borders

This construct:

with wks
   lastRow = .Columns(col).Find("*", SearchOrder:=xlByRows, _
      LookIn:=xlValues, SearchDirection:=xlPrevious).row
end with

seems to only find text. I can accomplish my goal by looping over each cell in the column, something like (untested):

Dim i as integer

with wks
   for i = 65535 to 1 step -1
      if not isEmpty(.cells(i,col)) and .cells(i,col).interior.colorIndex <> xlNone then _
         exit for
   next i
end with

msgbox("Last row with anything is " + str(i))

I don't know how to tell if there's a border, but in principle I can Google for it, and if I can't find it, ask here, and use it as a third condition in the conditional.

If there a faster or shorter way of doing this?

Thanks!

[Siddharth Rout]

I don't know how to tell if there's a border

Does this help?

'Example for cell A1
If Range("A1").BorderAround = True Then
    MsgBox "This cell has a border"
End If

If there a faster or shorter way of doing this?

Tip: If you loop through all the 65536 cells then excel will be damn slow. Check out "SpecialCells Method" in VBA Help to find the last cell. Then you can combine both to get the desired result...