Make text partly bold, but failed

**vdongen** · 10-10-2010, 01:36 AM

How to get only the first string bold and not the remaining text? At this stage all is bold.

StrMeetingCSC = "Meeting CSC"
StrOffice = "Office"
.Value = StrMeetingCSC & Chr(10) & StrOffice
.Characters(Start:=1, Length:=Len(StrMeetingCSC)).Font.Bold = True

**Marcol** · 10-10-2010, 06:31 AM

You need to specify the cell you need to make partially bold

    StrMeetingCSC = "Meeting CSC"
    StrOffice = "Office"

    With Range("A1")
        .Value = StrMeetingCSC & Chr(10) & StrOffice
        .Characters(Start:=1, Length:=Len(StrMeetingCSC)).Font.Bold = True
    End With

Change A1 to suit your needs

Hope this helps

[EDIT]
You will need to add this line to the with statement if your code is to run more than once

        .ClearFormats

**vdongen** · 10-10-2010, 08:17 AM

I have it worked, but after selection, the proram has to go to all cells to ClearFormat which takes 3 seconds. Any faster solution?

  .ClearFormats
  StrMeetingCSC = "Meeting CSC"
  StrOffice = "Office"
  With sRng
    .Value = StrMeetingCSC & Chr(10) & IIf(TglbMeetingRoom.Value = True, "[M] ", "[  ] ") & StrOffice & IIf(TglbBeamer.Value = True, " [B]", " [  ]")
    .Characters(Start:=1, Length:=Len(StrMeetingCSC)).Font.Bold = True
  End With

**Marcol** · 10-10-2010, 08:28 AM

As I said, add

 .ClearFormats

to the With statement

  StrMeetingCSC = "Meeting CSC"
  StrOffice = "Office"
  With sRng
    .ClearFormats
    .Value = StrMeetingCSC & Chr(10) & IIf(TglbMeetingRoom.Value = True, "[M] ", "[  ] ") & StrOffice & IIf(TglbBeamer.Value = True, " [b]", " [  ]")
    .Characters(Start:=1, Length:=Len(StrMeetingCSC)).Font.Bold = True
  End With

Hope this helps

**vdongen** · 10-10-2010, 09:02 AM

I did, but then merging will not proceed. The code is part of a bigger command.

Private Sub CmdMeetingCSC_Click()
On Error GoTo error_handler
RepeatInputBoxMeetingCSC:
Set sRng = Application.InputBox(prompt:="Select period for this Event", Left:=30, Top:=80, Type:=8)
With sRng
  If sRng.Rows.Count > 1 Then
    Set sRng = Nothing
    MsgBox "You selected more then one Row! Select the correct Period for this Event"
    GoTo RepeatInputBoxMeetingCSC
  End If
  .HorizontalAlignment = xlCenter
  .VerticalAlignment = xlCenter
  .MergeCells = True
  StrMeetingCSC = "Meeting CSC"
  StrOffice = "Office"
  With sRng
    .ClearFormats
    .Value = StrMeetingCSC & Chr(10) & IIf(TglbMeetingRoom.Value = True, "[M] ", "[  ] ") & StrOffice & IIf(TglbBeamer.Value = True, " [B]", " [  ]")
    .Characters(Start:=1, Length:=Len(StrMeetingCSC)).Font.Bold = True
  End With
If OpBProposed.Value = True Then sRng.Interior.ColorIndex = 35
If OpBScheduled.Value = True Then sRng.Interior.ColorIndex = 4
If OpBConfirmed.Value = True Then sRng.Interior.ColorIndex = 50
End With
error_handler:
Exit Sub
End Sub