Is there a way to add the values of a column, adding just the numbers that
are in bold format?

Give this a try.

Sub SumTheBold()
Dim Mud As Range
Dim cell As Range
Dim i As Integer

Set Mud = Range("A1:A5")

For Each cell In Mud
If cell.Font.Bold = True Then
i = cell.Value + i
End If
Next

MsgBox i
End Sub

HTH
Regards,
Howard


"Bytemylobster" wrote in message
...
Is there a way to add the values of a column, adding just the numbers that
are in bold format?

Hi,

You would need a UDF for that. Alt+F11 to open Vb editor. Right click on
'This Workbook' and insert module and paste the code below in

call with

=sumbold(a1:a10)


Function SumBold(Rng As Range) As Double
Dim c As Range, TempSum As Double
Application.Volatile
TempSum = 0
On Error Resume Next
For Each c In Rng.Cells
If c.Font.Bold = True Then
TempSum = TempSum + c.Value

End If
Next c
On Error GoTo 0
Set c = Nothing
SumBold = TempSum
End Function

Mike

"Bytemylobster" wrote:

Is there a way to add the values of a column, adding just the numbers that
are in bold format?

On Mon, 21 Sep 2009 12:13:56 -0700, "L. Howard Kittle"
wrote:

Give this a try.

Sub SumTheBold()
Dim Mud As Range
Dim cell As Range
Dim i As Integer

Set Mud = Range("A1:A5")

For Each cell In Mud
If cell.Font.Bold = True Then
i = cell.Value + i
End If
Next

MsgBox i
End Sub

HTH
Regards,
Howard


"Bytemylobster" wrote in message
...
Is there a way to add the values of a column, adding just the numbers that
are in bold format?



Get in mah Hard Drive!