VBA lower case to uppercase

[Pinaceous]

Good Day Everyone,

I want a sub to act upon the range A1:D5 where I want all of the lowercase letters in this range to become uppercase.

For example,

Before:

After:

How would I accomplish this?

Please let me know.

Thank you!
pinaceous

 

[johnnyL]

How about:

Sub ConvertRangeToUppercase()
'
    Dim cell    As Range, rng   As Range
'
    Set rng = Range("A1:D5")
'
    For Each cell In rng
        If cell.Value <> "" Then
            cell.Value = UCase(cell.Value)
        End If
    Next
End Sub

 

[Rick Rothstein]

Given that the range is "fixed", this would also work...

Sub ConvertRangeToUppercase()
  [A1:D5] = [UPPER(A1:D5)]
End Sub

 

[Rick Rothstein]

Given that the range is "fixed", this would also work...

Sub ConvertRangeToUppercase()
  [A1:D5] = [UPPER(A1:D5)]
End Sub

And if the range is not fixed and needs to be set within the macro, then use this macro instead...

Sub ConvertRangeToUppercase()
  Dim Rng As Range
  Set Rng = Range("A1:D5")
  Rng.Value = Evaluate("UPPER(" & Rng.Address & ")")
End Sub

 

[Pinaceous]

Thank you Rick!