Can I add values of a column that are only 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!
|