[RESOLVED] Error that says : Subscript out of range...

[seema_s]

Hi,

I am getting an error: "Subscript out of range" and highlights the following line:

dbgAutomobiles.Columns(i).Width = 0

I have 47 fields in total.

The following is the code:

Private Sub Datagridcolumns()
Dim i As Integer
dbgAutomobiles.Columns(0).Width = 0
dbgAutomobiles.Columns(1).Width = 3025
dbgAutomobiles.Columns(2).Width = 1000
dbgAutomobiles.Columns(3).Width = 900
 
For i = 4 To dbgAutomobiles.Columns.Count
        dbgAutomobiles.Columns(i).Width = 0
Next
End Sub

Regards.

Seema_s

[bushmobile]

The columns have a 0-based index so you need:

For i = 4 To dbgAutomobiles.Columns.Count - 1

[seema_s]

The columns have a 0-based index so you need:

For i = 4 To dbgAutomobiles.Columns.Count - 1

Thanks it works fine.