How to make cell value bold along with other data

**vdongen** · 10-04-2010, 07:34 AM

How to make only the first value bold (from D3) and the remaining normal when the values are populated in a merged cell range?

Private Sub CmbInsert_Click()
Set srng = Application.InputBox(prompt:= _
"Select A Range", Type:=8)
With srng
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlCenter
.MergeCells = True
.Value = Range("D3").Value & Chr(10) & IIf(TglbDriver.Value = True, "D", " ") & " " & Range("H3").Value & " " & IIf(TglbBeamer.Value = True, "B", " ")
End With
End Sub

**Jamesr571** · 10-04-2010, 08:31 AM

Click on the cell you want, turn bold on and hit the entry field for the cell and type in what you would like in bold, then turn bold off and type the rest after.

**Marcol** · 10-04-2010, 08:54 AM

Try this

Private Sub CmbInsert_Click()

    Set srng = Application.InputBox(prompt:="Select A Range", Type:=8)
    
    With srng
        .HorizontalAlignment = xlCenter
        .VerticalAlignment = xlCenter
        .MergeCells = True
        .Value = Range("D3").Value & Chr(10) & IIf(TglbDriver.Value = True, "D", " ") & " " & Range("H3").Value & " " & IIf(TglbBeamer.Value = True, "B", " ")
        .Characters(Start:=1, Length:=Len(Range("D3"))).Font.Bold = True    
     End With

End Sub

Hope this helps