use range variable in command to set selected cells all uppercase

[smakatura]

I want to select cells and turn them upper case. the cells selected will change each time.

I have tried a few things and had no luck

the first way it did not want to do it bc I think my use of the range variable in the actual command is not right.

'set range based on selected cells
   Set Rng = Selection
'Loop to cycle through each cell in the specified range.
  For Each x In Range(Rng)
'Change the text in the range to uppercase letters.
     x.Value = UCase(x.Value)
  ' Next

then I saw where someone was able to use one line to take the selected cells and make them proper case...I tried to convert to upper case and it did not work

Selection.Value = Application.UCase(Selection.Value)

 

[gallen]

I tried it and it only works if you Dim x as range. So this worked for me:

Sub test()


Dim x As Range


    For Each x In Selection
        x = UCase(x)
    Next x
    
End Sub

 

[steve the fish]

Heres a way:

Dim x As Variant

Set x = Selection
x = Evaluate("INDEX(UPPER(" & x.Address & "),0)")
Selection.Value = x

Not a one liner mind.

 

[cerfani]

Selection.Value = UCase(Selection.Value) worked for me

 

[smakatura]

thank you the long way listed worked perfect. I appreciate it