Negrita de la primera palabra

[ColdGeorge]

Hola amigos

Solicito de su ayuda una vez más, ¿cómo puedo hacer que la primera letra de la primera palabra de una celda sea convertida en negrita? el rango puede ser muy grande, gracias de antemano por su ayuda.

ColdGeorge

 

[James006]

Hola,

Puedes probar lo siguiente ...

Private Sub Worksheet_Change(ByVal Target As Range)
  Target.Characters(Start:=1, Length:=1).Font.FontStyle = "Bold"
End Sub

 

[ColdGeorge]

Hola James006
Después de probarlo, esta versión me acomoda mejor, gracias.

Dim celda As Range
For Each celda In Selection
celda.Characters(1, 1).Font.Bold = True
Next

ColdGeorge

 

[James006]

Hola James006
Después de probarlo, esta versión me acomoda mejor, gracias.

Dim celda As Range
For Each celda In Selection
celda.Characters(1, 1).Font.Bold = True
Next

ColdGeorge

De nada ...