How to convert entire Excel sheet in uppercase?

How to convert entire Excel sheet in uppercase?
Who is Participating?
FernandoFernandesConnect With a Mentor Commented:
if you want to use VBA:
1) press Alt+F11
2) Press Ctrl+R
3) Find your file in the Project Explorer
4) Right-click any part of your faile and select insert/module
5) paste the code below
6) hit F5 with the cursor within the code area
7) wait
8) done :)
Sub UpperCaseWholeWorkbook()
On Error Resume Next
Dim sht As Worksheet
Dim rng As Range

with Application
End With

For Each sht In ThisWorkbook.Worksheets
    If Not sht.ProtectionMode Then
        For Each rng In sht.UsedRange
            With rng
                If .Formula <> "" Then
                    .Formula = VBA.UCase(.Formula)
                End If
            End With
    End If
Next sht

with Application
End With

End Sub

Open in new window

add another worksheet.

in cell A1, type the following formula - =UPPER(Sheet1!A1)

Then drag the formula out to cover the target data range.

Copy and paste special the formula to values!


1) That you only have text values (probably not)
2) The sheet that you want to convert to upper is called Sheet1
that's the quick way (although it will convert numbers to text, which can easily be converted back to numbers using text-columns), the alternative is to have a macro do this for you.

Is that an option?
try this;

SAM2009Author Commented:
Thank you it works fine!
Question has a verified solution.

Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.

Have a better answer? Share it in a comment.

All Courses

From novice to tech pro — start learning today.