bold part of text

[erock24]

I would like to use a macro to bold the word "Actual" in cell named "VMDate". How can I do this. The cell also contains other text that I wish to leave alone.

Thank you.

 

[Colin Legg]

Hi,

See how you get on with this:

Sub Example()
     Const sTOFIND As String = "actual"
     
     Dim lFirstChar As Long
     
     With Range("VMDate")
     
          lFirstChar = InStr(1, .Value, sTOFIND, vbTextCompare)
     
          If lFirstChar Then
            .Characters(lFirstChar, Len(sTOFIND)).Font.Bold = True
          End If
          
     End With
     
End Sub

Hope that helps...

 

[erock24]

Well that code worked, but since I have code that enters the text into that cell, this code only works the 1st time I run the macro. But using the recorder and editing the output I came up with this, which works fine. Thank you.

With Range("VMDate").Characters(Start:=1, Length:=6).Font
        .Bold = True
    End With
    With Range("VMDate").Characters(Start:=7, Length:=13).Font
        .Bold = False
    End With