Allora,
questa che segue

codice:
Function CountUnderline(InRange As Range) As Long
'
' This function return the number of underlined cells in InRange
'
Dim RngU As Range
Application.Volatile True
CountUnderline = 0

For Each RngU In InRange.Cells
   If RngU.Font.Underline = 2 Then
      CountUnderline = CountUnderline + 1
   End If
Next RngU

End Function
è una macro fatta sul modello di quella che mi hai passato che invece di contare le celle colorate conta quelle sottolineate.

Per utilizzarla devi sono copiarla nello stesso posto in cui si trova l'altra e richiamarla con:

codice:
=CountUnderline(intervallo_celle)

Come per l'altra funzione, anche questa viene attivata nel momento in cui una qualsiasi cella del foglio cambia valore, ma non se cambia solo formattazione (colore o sottolineatura).
E' possibile poi anche attivarla a mano con F9.

Come ti dicevo prima, vengono contate le celle che presentano la formattazione sottolineata non a livello di carattere ma a livello di cella, anche se vuote.

Spero che ti vada bene perché non sono riuscito a trovare né un modo per attivarle anche al variare della formattazione né un modo per contare i caratteri sottolineati interni.