First Cap. and Bold ?

[danial]

Sawasdee,

I want to create code for change any sentense to Title style.
business contigency plan > Business Contigency Plan
may be I use function PROPER to convert it.
but I need to change first of ... to Bold character
Business Contigency Plan

Please share any idea for create code command many sentense.

thank in advance,

 

[Jaafar Tribak]

This worked for me :

Sub Bold_And_Proper(r As Range)

Dim oChr As Object, i As Byte
Dim sText As String

    sText = " " & r
    On Error Resume Next
    For i = 1 To Len(sText)
        If (Mid(sText, i - 1, 1) = " " And Mid(sText, i, 1) <> " ") Then
            With r.Characters(i - 1, 1)
                .Font.Bold = True
                .Text = UCase(.Text)
            End With
        End If
    Next

End Sub


Sub TEST()

    Bold_And_Proper Range("a1")

End Sub

Where A1 is the Cell with the Text to formatted.

Regards.

 

[danial]

Thank a lot
If I want to say thank you in morocco. what can I say?

 

[Jaafar Tribak]

Thank a lot

You are welcome.

If I want to say thank you in morocco. what can I say?

Well, you could say , BARAKALLAHUFIK, JAZAKALLAHU KHAIRAN or less scary just say: SHUKRAN

Regards.

 

[danial]

Shukran and Ma'assalama