Comentario en la clase
Introducción a la Instrucción With...End With
Buenos Dias
Otra variante de codigo en aras de aplicar algo de lo aprendido hasta ahora seria la siguiente
Dim rango As Object
Set rango = ThisWorkbook.Sheets("Hoja1").Range("A16").CurrentRegion.Font
With rango
.Name = "Calibri"
.Size = 10
.Bold = True
.Italic = True
End With
Otra variante de codigo en aras de aplicar algo de lo aprendido hasta ahora seria la siguiente
Dim rango As Object
Set rango = ThisWorkbook.Sheets("Hoja1").Range("A16").CurrentRegion.Font
With rango
.Name = "Calibri"
.Size = 10
.Bold = True
.Italic = True
End With