Multiple cells selected by user, than remove last character

Hi!

I would like to make a macro that remove the last character of all cells selected from my user IF they meet a certain condition.. let say they end by L.

selectionrange.png

Something like:

If Right(Sheets("NAME_OF_SHEET").Selection), 1) = "L" Then
value = Left(Sheets("NAME_OF_SHEET").Selection, Len(Sheets("NAME_OF_SHEET").Selection) - 1)
Else
value = Sheets(Selection).Selection
End If

How can I do this ?

Thanks,
JP