Searching a column (Repost)
The following code searches column F and selects certain
cells. I need it to select ALL cells on the sheet that
meet the "search" criteria, not just the LAST cells that
meet the "search" criteria. Any suggestions would be
appreciated.
Sub TEST2()
Set SearchRange = Range("F2:F" & Range("F65536").End
(xlUp).Row)
For Each Cell In SearchRange
If Len(Cell.Value) 0 And _
Cell.Value < "Size" And _
Cell.Value < "Grand Total" And _
Cell.Font.Bold = True Then
Range(Cell.Offset(0, 0).Address & ":" & Cell.Offset(0, -
1).Address).Select
End If
Next Cell
End Sub
|