Excel

MałeLitery.bas

Attribute VB_Name = "MałeLitery"
Sub MałeLitery()
    For Each Cell In Selection
        If Not Cell.HasFormula Then
            Cell.Value = _
            Application _
            .WorksheetFunction _
            .Proper(Cell.Value)
        End If
    Next Cell
End Sub