Huruf Besar
Sub Uppercase()
For Each Cell In Selection
If Not Cell.HasFormula Then
Cell.Value = UCase(Cell.Value)
End If
Next Cell
End Sub
Huruf Kecil
Sub Lowercase()
For Each Cell In Selection
If Not Cell.HasFormula Then
Cell.Value = LCase(Cell.Value)
End If
Next Cell
End Sub
Sentence Case
Sub Propercase()
For Each Cell In Selection
If Not Cell.HasFormula Then
Cell.Value = _
Application _
.WorksheetFunction _
.Proper(Cell.Value)
End If
Next Cell
End Sub
