Sub test()
Sum = 0
'Currenty this code works upto Cells(50,50). The range can be changed
For i = 1 To 50
For j = 1 To 50
If Cells(i, j).Value Like "C*" Then
Sum = Sum + Right(Cells(i, j).Value, 1)
End If
Next
Next
MsgBox Sum
End Sub
=SUM(IF(LEFT(L32:L36,1)="C",RIGHT(L32:L36,LEN(L32:L36)-1)+0,0))