Guru do Excel e Power BI

Public Sub NegritarParteTexto()
    Dim lngEspacoApos   As Long
    Dim lngCurso        As Long
    Dim lngHoras        As Long
    Dim strTexto        As String
    'Dim CbbNomeDoCurso  As String
   ' Dim TxtHoras        As String
    
    'CbbNomeDoCurso = "Excel"
    'TxtHoras = "8"
    
    
    strTexto = "no curso " & CbbNomeDoCurso & _
                " com a carga horária de " & TxtHoras & " horas, realizado na"
    
    lngCurso = VBA.InStr(Start:=1, _
                        String1:=strTexto, _
                        String2:=CbbNomeDoCurso, Compare:=vbTextCompare)
                        
    lngEspacoApos = VBA.InStr(Start:=lngCurso + 1, _
                                String1:=strTexto, _
                                String2:=" ", Compare:=vbTextCompare)
                                
    lngHoras = VBA.InStr(Start:=1, _
                        String1:=strTexto, _
                        String2:=TxtHoras, Compare:=vbTextCompare)
                        
    lngEspacoApos = VBA.InStr(Start:=lngHoras + 1, _
                                String1:=strTexto, _
                                String2:=" ", Compare:=vbTextCompare)
                                
                                
    With plan26.Range("E26")
        .Value = strTexto
        .Characters(Start:=lngCurso, _
                                Length:=VBA.Len(CbbNomeDoCurso)).Font.FontStyle = "Negrito"
        .Characters(Start:=lngHoras, _
                                Length:=VBA.Len(TxtHoras)).Font.FontStyle = "Negrito"
    End With
    
End Sub