' Loop to cycle through each cell in the specified range.
For Each x In Range("A1:A5")
' Change the text in the range to uppercase letters.
x.Value = UCase(x.value)
ASAP utilities is another add-in that you can download - it contains an option for converting a range of cells to upper case, lower case, proper, etc. - in addition it has many other utilities that I have found to be very useful. You can download it for free at