Sub Change_Case()
Dim ocell As Range
Dim Ans As String
Ans = Application.InputBox("Type in Letter" & vbCr & _
"(L)owercase, (U)ppercase, (S)entence, (T)itles ")
If Ans = "" Then Exit Sub
For Each ocell In Selection.SpecialCells(xlCellTypeConstants, 2)
Select Case UCase(Ans)
Case "L": ocell = LCase(ocell.Text)
Case "U": ocell = UCase(ocell.Text)
Case "S": ocell = UCase(Left(ocell.Text, 1)) & _
LCase(Right(ocell.Text, Len(ocell.Text) - 1))
Case "T": ocell = Application.WorksheetFunction.Proper(ocell.Text)
End Select
Next
Dear Mike, We are celebrating here in my office! Thanx for such an easy and
quick fix. I acutally have a headache from trying to work it in Excel - no
go! Bring it to Word, reformat it easily and bring it back to Excel. Thank
you from 3 of us!!
There are a couple of ways to change a column to UPPER case without using Word
as an intermediary.
1. In a helper column enter =UPPER(cellref)
Copy that down as far as you wish.
2. Use a macro to make the change in place.
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
HI
Try one of these : =UPPER(G1)will do this =TO ALWAYS ROUND UP TO THE NEXT
Or this one =PROPER(G1) will do this = To Always Round Up To The Next X.95,
Try:
HTH
John
Want to reply to this thread or ask your own question?
You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.