Konvertering fra store bogstaver til små

Public Sub CorrectNames()
    Dim rCell As Range
    Dim sTemp As String
    Dim lCount As Long
   
    For Each rCell In Selection.Cells
        sTemp = ""
        With rCell
            For lCount = 1 To Len(.Value)
                If lCount = 1 Then
                    sTemp = UCase(Left(.Value, 1))
                Else
                    If Not (Mid(.Value, lCount - 1, 1) = " ") Then
                        sTemp = sTemp & LCase(Mid(.Value, lCount, 1))
                    Else
                        sTemp = sTemp & UCase(Mid(.Value, lCount, 1))
                    End If
                End If
            Next lCount
            .Value = sTemp
        End With
    Next rCell
   
    Set rCell = Nothing
End Sub

Eller brug funktionen

PROPER()

i den engelske udgave af Excel. Den hedder vist noget med Stort.Begyndelsesbogstav i den danske udgave.

/Christian
ck@officekonsulenterne.dk