Count Number of Characters in a Selection

I am using the macro below to count the number of specific character in a cell. The only problem it only counts one cell. How do I modify to display multiple cell counts if more than one cell is selected? Thx.

Sub CountC()
Dim Delim As String
Dim DCount As Long
Dim Cell As Range
Dim Rng As Range
Set Rng = Selection
Delim = InputBox("Enter Delim or Ok for Carriage Return", , vbLf)
For Each Cell In Rng
DCount = Len(Cell) - Len(Replace(UCase(Cell), UCase(Delim), ""))
Next Cell
MsgBox "Delim Count: " & DCount
End Sub