Alle gelben Zellen fett formatieren

In einem bestimmten Bereich befinden sich mit gelber Hintergrundfarbe
formatierte Zellen, diese sollen alle fett formatiert werden. 
Sub Formatieren()
   For Each Zelle In Range("A1:P100")
      If Zelle.Interior.ColorIndex = 6 Then Zelle.Font.Bold = True
   Next Zelle
End Sub