How to convert entire Excel sheet in uppercase?

How to convert entire Excel sheet in uppercase?
LVL 1
SAM2009Asked:
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
.EnableEvents=False
.Calculation=xlCalculationManual
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
        Next
    End If
Next sht

with Application
.EnableEvents=True
.Calculation=xlCalculationAutomatic
End With

End Sub

Open in new window

0
 
RunriggerCommented:
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!

assumes;

1) That you only have text values (probably not)
2) The sheet that you want to convert to upper is called Sheet1
0
 
RunriggerCommented:
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?
0
 
RunriggerCommented:
try this;

=IF(ISNUMBER(Sheet1!A1),Sheet1!A1,UPPER(Sheet1!A1))
0
 
SAM2009Author Commented:
Thank you it works fine!
0
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.