Add Text To Selected Cells At Start And End

Sub AddTextStartandEnd()
For Each cel In Selection
cel.Value = “Add At Start ” & cel.Value & ” Text Added At End”
Next
End Sub