This code only displays part of the last column, it's not wide enough
Whats wrong?
Code:
Sub SetGridWidth()
Dim i As Integer
Dim iWidth As Long
Dim LineWidth As Integer
LineWidth = 20
For i = 0 To gridStats.Cols - 1
With gridStats
iWidth = iWidth + .ColWidth(i) + LineWidth
End With
Next i
gridStats.Width = iWidth