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

Leave a Reply