Option Explicit

Public Sub UpdateTextUsingForEach()
    Dim cell As Excel.Range

    For Each cell In Selection
        cell.Value = cell.Value & " extra text"
    Next cell
End Sub