Font style and color in a string

[AJSIV4]

Greetings,

I am imputing defined string variables into a cell. I need only certain parts of the text to be red and bold.

Example. Example.

HospSheet.Cells(curRow, DX_LABEL_COL).Value = PreDXLabel & "Billing DX:" & "RDXLabel & "Revised DX:"

PreDXLabel is fine as standard text, but everything else after the equals sign need to be red and bold.

The only solution I can find on other boards is making the cell active, which I would like to avoid, if possible.

Thanks!

 

[Matt Rogers]

Hello.

With a macro?

Option Explicit
Sub Red_And_Bold()
'Start A2
Dim ingRow, ingRowStart, ingRowMax As Long

ingRowStart = 2
ingRowMax = ActiveSheet.Cells(Rows.Count, 3).End(xlUp).Row

  For ingRow = ingRowStart To ingRowMax
   If InStr(Cells(ingRow, 1), "=") > 0 Then
      With Cells(ingRow, 1)
       .Characters(Start:=InStr(Cells(ingRow, 1), "=") + 1, Length:=Len(Cells(ingRow, 1)) - InStr(Cells(ingRow, 1), "=")) _
       .Font.Bold = True
       .Font.ColorIndex = 3
      End With
    End If
  Next ingRow

End Sub