Sub Upper()
Dim Cell As Range
Application.ScreenUpdating = False
For Each Cell In Selection
Cell.Formula = UCase(Cell.Formula)
Next
Application.ScreenUpdating = True
End Sub


Sub Lower()
Dim Cell As Range
Application.ScreenUpdating = False
For Each Cell In Selection
Cell.Formula = LCase(Cell.Formula)
Next
Application.ScreenUpdating = True
End Sub


Sub Proper()
Dim Cell As Range
Application.ScreenUpdating = False
For Each Cell In Selection
Cell.Formula = Application.Proper(Cell.Formula)
Next
Application.ScreenUpdating = True
End Sub


Gord Dibben MS Excel MVP

On Wed, 11 Jun 2008 10:36:00 -0700, Jennifer
wrote:

i have rows in an excel workseet that there is some uppercase words and some
lowercase words, and i need to make them all uppercase. I was told the only
way to do this is to cut and paste it into word, and then re cut and paste it
back into excel after making it all caps. I know this is not true, and i know
that there is a way to do it in excel and it shouldnt be this hard for me as
i went to school for it. but i cant figure it out. Can someone please help
me. Thanks!

Jenn