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