Selecione as células que você deseja examinar e executar:
Sub fourmat()
Dim r As Range, msg As String
msg = ""
For Each r In Selection
msg = msg & vbCrLf & r.Address(0, 0) & vbTab & r.FormatConditions.Count
Next r
MsgBox msg
End Sub
Ele listará cada célula e o número de formatos condicionais associados a essa célula:
EDIT#1:
Vocêpodetestaroestadoatualdoformatodeumacélulacomo
Por exemplo, ele informará se a célula é Bold , mas você precisa saber qual condição a tornou ousada!