Hi,

The literal equivalent would be
Selection.Offset(, 1) = Evaluate("index(Upper(" & selection.Offset(, 1).address & "),)")