Calculating a Score in VBA based on selected ShapeStyle. Is there a better/shorter way to do this?
You deleted this before I could answer on SO:

Option Explicit
Sub Lead_Score()

    Dim shp As Shape
    Dim RelScore As Long
    Dim QualScore As Long
    For Each shp In ThisWorkbook.Sheets(1).Shapes 'change (1) for your sheet name.
        RelScore = MyRelScore(shp)
        QualScore = MyQualScore(shp)
    Next shp
    Dim Score As Long
    Score = RelScore + QualScore
    Debug.Print Score

End Sub
Private Function MyRelScore(shp As Shape) As Long

    Select Case shp.Name
        Case "CustomerButton", "VendorButton"
            If shp.ShapeStyle = 34 Then MyRelScore = 0
        Case "ProspectButton"
            If shp.ShapeStyle = 34 Then MyRelScore = 15
        'Case ...
    End Select

End Function
Private Function MyQualScore(shp As Shape) As Long

    Select Case shp.Name
        Case "SuspectButton"
            If shp.ShapeStyle = 34 Then MyQualScore = 5
        Case "QualifiedButton"
            If shp.ShapeStyle = 34 Then MyQualScore = 15
        Case "NonQualifiedButton"
            If shp.ShapeStyle = 34 Then MyQualScore = 0
        'Case ...
    End Select

End Function