Excel init

Sub Test()
    Dim r As Range
    Dim a As Integer
    a = 0
    For Each r In Range("b1:b6")
        If r.Font.Bold <> "True" Then
           a = a + r.Value
        End If
    Next r
    MsgBox (a)
End Sub