Te anexo la macro actualizada
CODIGO = frmXAlumno.TextBox1.Text 'Hoja7.Cells.Range("a2").Text
ALUMNO = frmXAlumno.ComboBox1.Text
FACULTAD = frmXAlumno.TextBox2.Text
CARRERA = frmXAlumno.TextBox3.Text
ESPECIALIDAD = frmXAlumno.TextBox4.Text
'
Hoja5.Cells(5, 1) = "El Director General de la Escuela Superior de Formación Artística Pública Ancash, Certifica" & _
" Que, don (ña)" & Space(4) & ALUMNO & _
" con Nº de Matrícula:" & Space(4) & CODIGO & Space(4) & "alumno (a) de la Facultad de:" & Space(4) & FACULTAD & _
" Carrera de:" & Space(4) & CARRERA & Space(4) & "ESPECIALIDAD:" & Space(4) & ESPECIALIDAD & _
" ha cursado los siguientes cursos, obteniendo las calificaciones que se indican:"
'
'Por.Dante Amor
wdatos = Array(CODIGO, ALUMNO, FACULTAD, CARRERA, ESPECIALIDAD)
For i = LBound(wdatos) To UBound(wdatos)
ini = InStr(1, Hoja5.Cells(5, 1), wdatos(i))
fin = Len(wdatos(i))
Hoja5.Cells(5, 1).Characters(Start:=ini, Length:=fin).Font.FontStyle = "Negrita"
Next
'Fin. Por. Dante Amor
'
'Aquí debe continuar tu macro
'S aludos. Dante Amor. Recuerda valorar la respuesta. G racias