Sub addLeft()
    Dim rng As Range
    Set rng = Selection 'Application.InputBox("Select the range:", Type:=8)
    Dim cell As Range
    MsgBox "Shall I proceed with left addition?", vbYesNo
    Dim a As String
    
    If vbYes Then
    a = InputBox("Enter something to be added to the left!")
    For Each cell In rng.SpecialCells(xlCellTypeConstants)
        cell = a & cell
    Next
    End If
    
End Sub