To change text in a selected range to upper case use this code.
Sub UpperCase()
Dim cell As Range
For Each cell In Selection.Cells
If cell.HasFormula = False Then
cell = UCase(cell)
End If
Next
End Sub
Subscribe to:
Post Comments (Atom)
formula
ReplyDelete=upper(a1)
also
=lower(a1)
however:
Sub ProperCase()
Dim cell As Range
For Each cell In Selection.Cells
If cell.HasFormula = False Then
cell = strconv(cell.text,vbProperCase)
End If
Next
End Sub