Poner negritas

La siguiente macro la puedes utilizar para poner en negritas parte del texto de una celda de Excel.

Utilizando una macro recorrer todas las filas y poner en negritas el texto de la derecha de cada celda.

Macro:

--------------------------------------

Option Explicit
Sub PonerNegritas()
  Dim i As Long, n As Long
  'recorre las filas de la columna "A"
  For i = 2 To Range("A" & Rows.Count).End(3).Row
    With Range("A" & i)
      'obtiene la posición del guión "-" (de derecha a izquierda)
      n = InStrRev(.Value, "-")
      If n > 0 Then
        'si encontró el guión, entonces pone en negritas el texto
        'después del guión
        .Characters(n + 2, Len(.Value)).Font.Bold = True
      End If
    End With
  Next
End Sub

 --------------------------------------

Código para poner en negritas el texto que está entre 2 caracteres:

--------------------------------------

Sub PonerNegritas_2()
  Dim i As Long, m As Long, n As Long
  'recorre las filas de la columna "A"
  For i = 2 To Range("A" & Rows.Count).End(3).Row
    With Range("A" & i)
      'obtiene la posición del guión "-" (de derecha a izquierda)
      m = InStr(.Value, "/")
      n = InStrRev(.Value, "/")
      If n > 0 Then
        'si encontró el caracter, entonces pone en negritas
        'el texto entre caracteres
        .Characters(m + 1, n - m - 1).Font.Bold = True
      End If
    End With
  Next
End Sub

---------------------------------------