Utilizamos cookies propias y de terceros para mejorar la experiencia de navegación, y ofrecer contenidos y publicidad de interés. Al continuar con la navegación entendemos que se acepta nuestra política de cookies.
Prueba con esto Private Sub DimensionaColumnas() With Grid .ClearFields .Columns(0).Width = 600 .Columns(0).Caption = "Instit." '--- .Columns(1).Width = 3900 .Columns(1).Caption = "Nombre" End With End Sub Saludos desde Lima Peru