Formatering

=store.bogstaver()

=STORT.FORBOGSTAV()

Marker det område du gerne vil have ændret, og kør denne makro.

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

Tak for hjælpen