Sub SelectByFormat()
   'выделяет ячейки на основе их форматирования в Excel2002 и выше
 If Val(Application.Version) < 10 Then
    MsgBox "Необходим Excel 2002 или выше"
 Exit Sub
 End If
 Dim FirstCell As Range, FoundCell As Range
 Dim AllCells As Range
' определение форматирования
Range("A1:A20").Select
 With Application.FindFormat.Borders
 

   .LineStyle = xlContinuous
            .ColorIndex = 0
            .TintAndShade = 0
            .Weight = xlThin
   'желтый
   
 
 End With
' поиск первой соответствующей ячейки
 Set FirstCell = Cells.Find(What:="", SearchFormat:=True)
' если ячейка не найдена, выход
 If FirstCell Is Nothing Then
    MsgBox "Ячейки указанного формата не найдены\"
    Exit Sub
 End If
' инициализация AllCells
 Set AllCells = FirstCell
 Set FoundCell = FirstCell
' просмотр, пока не будет найдена ячейка FirstCell
 Do
    Set FoundCell = Cells.FindNext(After:=FoundCell)
    Set AllCells = Union(FoundCell, AllCells)
    If FoundCell.Address = FirstCell.Address Then Exit Do
 Loop
' выделение найденных ячеек и сообщение пользователю
 AllCells.Select
    MsgBox "Найдено ячеек: " & AllCells.Count
End Sub