I guess I'm slipping. Those should both be "its", not "it's".
On Mon, 10 Jan 2005 13:10:35 -0600, Myrna Larson
wrote:
Hi, Don:
If a cell contains a literal (text or number), it's formula is it's value, so
you can just write
For Each r In Selection.Cells
r.Formula = LCase(r.Formula)
Next
On Mon, 10 Jan 2005 08:09:49 -0600, "Don Guillett" wrote:
This might come in handy stored in your personal.xls file
Sub ChangeCase()
Application.ScreenUpdating = False
Dim r As Range
nCase = UCase(InputBox("Enter U for UPPER" & Chr$(13) & " L for
lower" & Chr$(13) & " Or " & Chr$(13) & " P for Proper", "Select
Case Desired"))
Select Case nCase
Case "L"
For Each r In Selection.Cells
If r.HasFormula Then
r.Formula = LCase(r.Formula)
'R.Formula = R.Value
Else
r.Value = LCase(r.Value)
End If
Next
Case "U"
For Each r In Selection.Cells
If r.HasFormula Then
r.Formula = UCase(r.Formula)
'R.Formula = R.Value
Else
r.Value = UCase(r.Value)
End If
Next
Case "P"
For Each r In Selection.Cells
If r.HasFormula Then
r.Formula = Application.Proper(r.Formula)
'R.Formula = R.Value
Else
r.Value = StrConv(r.Value, vbProperCase)
End If
Next
End Select
Application.ScreenUpdating = True
End Sub
|