Sub СделатьПрописными()
    For Each cel In Selection.Cells
        If cel.Text <> "" Then cel.Value = StrConv(cel.Text, vbUpperCase)
    Next
End Sub
Sub СделатьСтрочными()
    For Each cel In Selection.Cells
        If cel.Text <> "" Then cel.Value = StrConv(cel.Text, vbLowerCase)
    Next
End Sub
Sub СделатьПрописнойТолькоПервуюБукву()
    For Each cel In Selection.Cells
        If cel.Text <> "" Then cel.Value = StrConv(cel.Text, vbProperCase)
    Next
End Sub