Bir butona aşağıdaki kodları yazarak (A1 ve B3) arasındaki büyük olarak yazılmış yazıları küçük olarak değiştirilmiştir.
Range("a1:b3").Select
Dim cell As Range
For Each cell In Selection.Cells
If cell.HasFormula = False Then
cell = LCase(cell)
End If
Next