detectar formato de celda negrita en formula

Intenta hacerlo por código. Prueba la siguiente función:

Function SumarNegritas(Rango As Range)
Dim Total As Double
For Each celda In Rango.Cells
If celda.Font.Bold = True Then Total = Total + celda.Value
Next celda
SumarNegritas = Total
End Function



"Prodigia Consultores S.L." escribió:

Hola grupo quiero hacer un sumatorio de una columna y que sólo me sume las
celdas q estén en negrita.

Podríais decirme cómo se hace. No sé poner la prueba lógica que detecte el
formato de celda en negrita.

Abierto a otras sugerencias. Gracias por adelantado.