Sub ZnajdzFormatowanie()

Dim MyCell As Range
Dim strCellList, strFontName, strLastCell As String
Dim strUsedRange, strCellStyle As String
Dim intSize, intColorIndex, intFillColor As Integer
Dim blnTest, blnBold, blnItalic As Boolean

With ActiveCell.Font
   strFontName = .Name
   intSize = .Size
   intColorIndex = .ColorIndex
   blnBold = .Bold
   blnItalic = .Italic
End With

intFillColor = ActiveCell.Interior.ColorIndex

strLastCell = ActiveSheet.Cells.SpecialCells(xlCellTypeLastCell).Address
strCellList = ActiveCell.Address

strUsedRange = "$A$1:" & strLastCell

For Each MyCell In Range(strUsedRange).Cells

blnTest = False

If MyCell.Font.Name = strFontName Then
   If MyCell.Font.Bold = blnBold Then
      If MyCell.Font.Italic = blnItalic Then
         If MyCell.Font.ColorIndex = intColorIndex Then
            If MyCell.Font.Size = intSize Then
               If MyCell.Interior.ColorIndex = intFillColor Then
               blnTest = True
               End If
            End If
         End If
      End If
   End If
End If

If blnTest = True Then

   strCellList = strCellList & ", " & MyCell.Address

End If

Next MyCell
On Error Resume Next
Range(strCellList).Select
If Err Then MsgBox ("Nie mozna wybrac komorek. Prawdopodobnie jest zbyt wiele" _
& "komorek z szukanym formatem.")

End Sub
